задано масивA (-64;35;-12;0;17;121;-28;0;95;2;-4;31;27;-144;33;60;-48;0;-56;65)

Побудувати блок-схему алгоритму

написати Amin елементу масиву А.Вивести на екран масив А та значення Аmin

1

Ответы и объяснения

2013-05-18T16:44:08+04:00

uses crt;
const a: array[1..20] of integer=(-64,35,-12,0,17,121,-28,0,95,2,-4,31,27,-144,33,60,-48,0,-56,65);
var min,i:integer;
begin
min:=a[1];
for i:=1 to 20 do
begin
if min > a[i+1] then min:= a[i+1];
writeln(a[i]);
end;
writeln(min);
readln;
end.