Информатика, опубликовано 2018-08-22 19:35:01 by Гость
Информатика. Тема: Оператор ветвления на ПаскалеЗадачаиз 4 величин определить наименьшеерешать типо:Program ...beginreadln и т.д.
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на