Предмет: Информатика,
автор: EtudeKim25052001
массив от 1 до 10 заполнить случайными числами и найти сумму максимум и минимум 1 до 15
Ответы
Автор ответа:
0
Var
i,z,min,max:integer;
a:Array [1..10] of integer;
Begin
randomize;
z:=0;
min:=16;
max:=-1;
for i:=1 to 10 do begin
a[i]:=Random(15)+1;
z:=z+a[i];
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
for i:=1 to 10 do Write(a[i], ' ');
Writeln();
Writeln('Минимальное значение ',min,' Максимальное значение ',max,' Сумма ',z);
End.
i,z,min,max:integer;
a:Array [1..10] of integer;
Begin
randomize;
z:=0;
min:=16;
max:=-1;
for i:=1 to 10 do begin
a[i]:=Random(15)+1;
z:=z+a[i];
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
for i:=1 to 10 do Write(a[i], ' ');
Writeln();
Writeln('Минимальное значение ',min,' Максимальное значение ',max,' Сумма ',z);
End.
Автор ответа:
0
спасибо большое)
Автор ответа:
0
незачто)
Похожие вопросы
Предмет: Английский язык,
автор: Aiadil14112012
Предмет: Математика,
автор: frise718
Предмет: Математика,
автор: kroyleon29
Предмет: Математика,
автор: polinalyubeznaya
Предмет: Физика,
автор: Katuha2711