тема : Одномерный массив 1)составить текст программы 2)нарисовать блок схему Дан массив из 15 чисел.Определить номер максимального элемента в массиве,а также количество отрицательных чисел.
Ты не написала в чем решить ну я решу в паскале:
Program Frank;
const n=15;
Type mas=array[1..n] of integer;
var a:mas;max,i,k:integer;
begin
for i:=1 to n do begin
a[i]:=random(100)+5;
writeln(a[i]);
end;
max:=a[1];
for i:=1 to n do begin
if (a[i]>max) then max:=a[i]
end;
writeln(Максимальное число := ,max);
k:=0;
for i:=1 to n do begin
if a[i]<0 then k:=k+1
end;
writeln("Кол-во отрицательных чисел := ",k);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
