Составьте программу заполняет массив [1...10] случайными целыми числами в диапазоне от 0 до10 и

Составьте программу заполняет массив [1...10] случайными целыми числами в диапазоне от 0 до10 и находит максимальный элемент массива среди элементов с четными индексами
Категория: Информатика 3 года назад
На вопрос 3 года назад
АЛЕКСАНДРА СОКОЛЬСКАЯ
Const n=10;
var a:array [1..n] of integer;
i,max: integer;
begin
randomize;
 for i:=1 to n do
 begin
 a[i]:=random (10);  
write(a[i],' ')
end;
writeln;
max:=a[1];
for i:=1 to n do if (i mod 2 =0) and (max  then max:=a[i];
writeln (max) 
end.
Ответ получен 3 года назад
Арсений Львов

Пожалуйста зарегистрируйтесь/войдите для ответа на вопрос.  Нажмите для входа

Войти на сайт