Тема одномерные массивы написать программу в паскале: - вопрос №8613641115 от KakЭтоTak 21.09.2021 09:49

Question

Информатика: Тема одномерные массивы написать программу в паскале: 1.массив на 15 значений заполнен случайными числами посчитать количество нечетных значений 2.массив на 14 значений заполнен случайными числами второй сотни с точностью до десятых удалить все целые 3.массив на 17 значений заполнен целыми числами вставить перед каждым полендромом число 10

KakЭтоTak · Answer

Program one;uses crt;varrandomize;i,s:byte;a:array[1..15] of integer;beginfor i:=1 to 15 dobegina[i]:=random(1000);end;for i:=1 to 15 dobeginif odd(a[i]) then s:=s+1;end;writeln( ne4etnix 4isel- ,s);end.как то так 1-я задача...