Паскаль, на массивы. дана последовательность, в которой встречается нуль. заменить нуль цифрой 8.

229

354

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

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

qwerty2021

Информатика

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

Const n=5; var a: array[1..n] of integer; i: integer; begin writeln('vvedite massiv='); for i : = 1 to n do readln(a[i]); for i: = 1 to n do if a[i]=0 then a[i]: =8; writeln('noviy='); for i : = 1 to n do write(a[i]: 4); readln; end.

ladakorobova

Информатика

4,4(75 оценок)

Для матрицы 6х6 (36 элементов): const n=6; var a: array[1..n,1..n] of integer; i,j,max: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(51); write(a[i,j]: 3); end; writeln; end; max: =a[1,1]; for i: =2 to n do if a[i,i]> max then max: =a[i,i]; writeln('max = ',max); end. пример: исходный массив: 32 14 6 10 45 8 39 31 5 28 18 15 3 19 19 18 35 0 42 27 36 28 8 10 5 13 40 10 41 10 35 12 18 17 31 4 max = 41