Составить программу которая вводит массив из 10 элементов и печатает разность между максимальным и минимальным значением
darinamel196
1
07.04.2019 16:12
0
Другие вопросы по теме Информатика
polina030502
15.12.2020 16:40
Alisacollins1
15.12.2020 16:39
Timoha233
15.12.2020 16:38
xerobiriv
17.05.2020 16:38
pastor741
17.05.2020 16:38
Otlichnik1703
12.07.2019 05:00
nyamnov
12.07.2019 05:00
muslima2003
03.07.2019 01:10
Популярные вопросы
- Начинаются оттепели, ростепели, капели с крыш. пунтктуационный разбор...
1 - ): вместо точек запишите формулы простых веществ и составьте уравнения...
2 - Нужна ли в этом предложении запятая? из-за сильных морозов ночью образовался...
3 - Ккаждому предложению задай общий вопрос ,и специальный , и вопросы...
2 - Отметь только те слова, в которых звуки стоят в следующем порядке....
3 - Расчитать значение к как следующее выражение: к = 75 * 8 – 44 переменной...
2 - Впесчаных степях аравийской земли три гордые пальмы высоко росли. словосочетание...
2 - Составить предложения со словами березовая роща, весеннее утро, весенние...
1 - Mg(oh)2+p2o5-mg(po4)2+h2o надо из этого сделать уравнене...
1 - Формулы высшего оксида и летучего водородного соединения элемента э...
1
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.