Информатика, опубликовано 2018-08-22 20:56:47 by Гость
Записать программу ввода с клавиатуры массива целых чисел. а [1..10] вывода на экран элементов массива с положительными значениями.
Ответ оставил Гость
Var a: array [1..10] of integer;
i: integer;
begin
for i := 1 to 10 do readln(a[i]);
for i := 1 to 10 do
if (a[i] > 0) then writeln([, i, ] => , a[i]);
end.
Такое подойдёт?)
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на