Информатика. Тема: Оператор ветвления на Паскале
Задача
из 4 величин определить наименьшее
решать типо:
Program ...
begin
readln и т.д.
Задача
из 4 величин определить наименьшее
решать типо:
Program ...
begin
readln и т.д.
More Questions From This User See All
Answers & Comments
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.