В одномерном массиве найти наибольший положительный элемент и увеличить его в 2 раза.

Question

В одномерном массиве найти наибольший положительный элемент и увеличить его в 2 раза.

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

typen= array[1..10] of integer;vara:n;i : integer;fl : integer;max : integer;beginmax:=A[1];randomize;for i:=1 to 10 do begina[i]:=random(100);end;writeln;fl:=0;for i:=1 to 10 do if a[i]>max thenbeginfl:=fl+2;writeln('В массиве есть положительные элементы',fl);end;end.