Предмет: Информатика,
автор: violjuc22
Cоставить программу , которая формирует массив из 8 случайных целых чисел от -20 до 20 и осуществляет поиск минимального элемента .
Ответы
Автор ответа:
0
//Pascal
var
A: array[1..8] of integer;
i: byte;
Min: integer;
begin
randomize;
Min := 20;
for i := 1 to 8 do
begin
A[i] := random(41)-20;
if A[i] < Min then Min := A[i];
write(A[i], ' ');
end;
writeln;
writeln('Минимальный элемент = ', Min);
end.
var
A: array[1..8] of integer;
i: byte;
Min: integer;
begin
randomize;
Min := 20;
for i := 1 to 8 do
begin
A[i] := random(41)-20;
if A[i] < Min then Min := A[i];
write(A[i], ' ');
end;
writeln;
writeln('Минимальный элемент = ', Min);
end.
Приложения:
![](https://files.topotvet.com/i/2fa/2fa155e2f89ae1da973ee1f862d2dc5e.png)
Автор ответа:
0
Огромное спасибо , вы не представляете как мне помогли :)
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Английский язык,
автор: stuartdzia
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: Никита1244589
Предмет: Алгебра,
автор: ведьмак4