Предмет: Информатика,
автор: anonim453765
Составьте программу нахождения минимального элемента в массиве А(10).
MatemaT123:
Паскаль?
Ответы
Автор ответа:
1
Ответ:
См. объяснение.
Объяснение:
Program minimalniielement;
Var i: integer;
min: real;
A: array [1..10] of real;
Begin
Writeln('Введите 10 элементов массива: ');
min:=0;
for i:=1 to 10 do
begin
Write('A[',i,']= ');
Readln(A[i]);
if A[i]<min then min:=A[i];
end;
Writeln('Минимальный элемент массива: ', min);
Readln;
End.
Приложения:

Похожие вопросы
Предмет: Английский язык,
автор: belaevaana27
Предмет: Английский язык,
автор: Arina21241
Предмет: Другие предметы,
автор: YouTubeBoy21232
Предмет: Другие предметы,
автор: Аноним
Предмет: Английский язык,
автор: horoshistka14653