.Дан массив состоящ из 15 целых чисел,заполненых случ.образом в промежутке от -10 до 10.Найти максимальное значение и заменить на 0 значения всех элементов ,которые находятся перед максимальным
.Дан массив состоящ из 15 целых чисел,заполненых случ.образом в промежутке от -10 до 10.Найти максимальное значение и заменить на 0 значения всех элементов ,которые находятся перед максимальным
Гость
Ответ(ы) на вопрос:
Гостьprogram new;
var a:array[1..15] of integer;max,m,i:integer;
begin
randomize;
for i=1 to 15 do
a[i]:=random(21)-10
end;
max:=-10;
for i =1 to 15 do
if a[i] > max then
begin
m:=i;
max:=a[i]
end;
for i=1 to m-1 do
a[i]:=0;
end;
end.
Не нашли ответ?
Похожие вопросы