Составить программу, которая организует ввод массива a[1..10] с клавиатуры, затем преобразовывает массив, заменяя все отрицательные элементы их модулями.

271

474

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

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

timurtim1

Информатика

4,6(41 оценок)

Var ar: array[1..10] of integer; i: integer; begin; for i: =1 to 10 do begin; write('введите ',i,' элемент массива: '); readln(ar[i]); if ar[i]< 0 then ar[i]: =abs(ar[i]); end; writeln('final array: '); for i: =1 to 10 do write(ar[i]: 4); end.

dghtf

Информатика

4,6(86 оценок)

Program bip; var a,q,n: integer; begin writeln('введите четыре числа'); readln(a); q: =0; n: =1; while (n< > 4) do begin if (a> q) then q: =a; readln(a); n: =n+1; end; writeln('большее из пяти ',q) ; end.