Информатика, опубликовано 2018-08-22 20:36:15 by Гость
Пожалуйста помоги, очень плохая оценка за четверть выходит, помогите с задачей
Ответ оставил Гость
Var a: array[0..10] of integer;
i, j, k: integer;
begin
for i := 0 to 10 do
begin
a[i] := random(90) - 45;
writeln([, i, ] => , a[i]);
end;
for i := 0 to 10 do
if (a[i] else if (a[i] > 0) then inc(k);
writeln(j, , k);
end.
работает у меня:)
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на