Регистрация
vadimgricuk74
18.08.2021 14:00
Информатика
Есть ответ 👍

с информатикой,нужно написать программу в Паскале. «В одномерном массиве A из n элементов найти максимальный среди всех элементов и заменить нулевые элементы на 30.»

164
348
Посмотреть ответы 2

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

pchpppr
pchpppr
4,7(93 оценок)

const n = 20;

var i, max :integer;

   A: array[1..n] of integer;

begin

 max := 0;

 write('Массив A: ');

 for i := 1 to n do

 begin

   A[i] := random(0, 10);

   write(A[i], ' ');

   if A[i] > max then max := A[i];

 end;

 writeln();

 writeln('Максимальный элемент: ', max);

 write('Массив с заменами: ');

 for i := 1 to n do

 begin

   if A[i] = 0 then A[i] := 30;

   write(A[i], ' ');

 end;

end.

shoeva02
shoeva02
4,8(25 оценок)
Var a: array[1..10] of real; i,j,m: integer; n: real; begin n: =0; m: =0; for i: =1 to 10 do begin readln(a[i]); n: =n+a[i]; end; n: =n/10; for j: =1 to 10 do begin if (a[j]> n) then m: =m+1; end; writeln(m); end.

Популярно: Информатика