Регистрация
olezhkash228
09.11.2021 04:33
Информатика
Есть ответ 👍

Блок схему алгоритма на паскаль к этой программе! ! Var
a:array[1..10] of integer;
max,min,i:integer;
Begin
for i:= 1 to 10 do Begin
write('Введите ',i,'-ый элемент массива ');
Readln(a[i]);
if i=1 then Begin
min:=a[i];
max:=a[i];
End;
if a[i]>max then max:=a[i];
if a[i] End;
Write('Разность наибольшего и наименьшего равна ',max-min);
End.

101
130
Посмотреть ответы 1

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

ValeriyaGerner
ValeriyaGerner
4,4(87 оценок)

Сообщение в 49 символов весит 392

Объяснение:

всё что я знаю

Популярно: Информатика