Информатика. Тема: Оператор ветвления на ПаскалеЗадачаиз 4 величин определить наименьшеерешать типо:Program ...beginreadln и т.д.
Информатика. Тема: Оператор ветвления на Паскале
Задача
из 4 величин определить наименьшее
решать типо:
Program ...
begin
readln и т.д.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы