Информатика. Тема: Оператор ветвления на Паскале
Задача

из 4 величин определить наименьшее

решать типо:
Program ...
begin
readln и т.д.

1

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

2014-01-13T17:33:20+04:00
Program z1;
var i,n:integer;
a:array [1..100] of integer;
begin
readln (n);
for i:= 1 to 4 do
begin
readln (A[I] );
end;
for i := 1 to 4 do
begin
If  A [i] > n then writeln (A [i]);
end;readln;end.