Определить значение наибольшего элемента массива заполненного 300 случайными положительными 3 значным числам и определить порядковый номер этого элемента

229

280

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

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

Незнайка1652

Информатика

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

const

n = 300;

var

i, max: integer;

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

begin

randomize;

writeln('исходные числа');

max : = 1;

for i : = 1 to n do

begin

a[i] : = random(900) + 100;

write(a[i], ' ');

if i mod 30 = 0 then

writeln;

if a[max] < a[i] then

max : = i;

end;

writeln('наибольшим являемся элемент ', max, ' значение которого ', a[max]);

end.

Yliana239990

Информатика

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

примени эту программу себе, тут и мах и мин program zadanie4; uses crt; var i: integer; max,min,maxi,mini: integer; a: array[1..10] of integer; begin clrscr; randomize; for i: =1 to 10 do a: =random(51); writeln('ischodni file'); writeln(''); for i: =1 to 10 do write(a: 5); writeln; writeln; maxi: =1; max: =a[1]; for i: =2 to 10 do begin if a> max then begin max: =a; maxi: =i; end; end; mini: =1; min: =a[1]; for i: =2 to 10 do if a< min> ; end; write('maximalnoe = '); writeln(max); write('minimalnoe = '); writeln(min); write('maximalnoe i = '); writeln(maxi); write('minimalnoe i = '); writeln(mini); writeln('konec zadachi'); readln; end.