Найти максимальный элемент массива x(10). написать программу в паскале .

142

439

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

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

Lolycat

Информатика

4,7(70 оценок)

Var x: array [1..10] of integer; a,s,i: integer; begin randomize; write('хотите заполнить массив самостоятельно? (1) или автоматически? (2)'); readln(s); case s of 1: begin writeln('введите 10 элементов массива: '); for i: = 1 to 10 do readln(x[i]); a: =x[1]; for i: = 1 to 10 do if a < x[i] then a: =x[i]; writeln('максимальный элемент: ',a); end; 2: begin writeln('массив: '); for i: = 1 to 10 do begin x[i]: =random(101); write(x[i]: 4); end; writeln; a: =x[1]; for i: = 1 to 10 do if a < x[i] then a: =x[i]; writeln('максимальный элемент: ',a); end; end; end.