Составить программу которая вводит массив из 10 элементов и печатает разность между максимальным и минимальным значением. На Паскале, элементы целого типа
Ответы
Ответ дал:
0
Var i, max, min:Integer;
A:array[1..10]of integer;
Begin
Max:=-1;min:=10;
For i:=1 to 10 do begin
A[i]:=random(10);
Write(' ', a[i]) ;
If a[i]>max then max:=A[i];
If a[i]<min then min:=a[i];
End;
Writeln;
Write(max-min) ;
End.
Ответ дал:
0
https://znanija.com/task/32112313 , помогите с информатикой пожалуйста 100 б
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад