Тема одномерные массивы

Написать программу в паскале:

1. Массив на 15 значений заполнен случайными числами посчитать количество нечетных значений

2. Массив на 14 значений заполнен случайными числами второй сотни с точностью до десятых удалить все целые

3. Массив на 17 значений заполнен целыми числами вставить перед каждым полендромом

Число 10

Question

Информатика

Альбинка

20 апреля, 22:11

Тема одномерные массивы

Написать программу в паскале:

1. Массив на 15 значений заполнен случайными числами посчитать количество нечетных значений

2. Массив на 14 значений заполнен случайными числами второй сотни с точностью до десятых удалить все целые

3. Массив на 17 значений заполнен целыми числами вставить перед каждым полендромом

Число 10

+2

Ответы (1)

Знаете ответ на вопрос?

Тима · Answer 1

Program one;

uses crt;

var

randomize;

i, s:byte;

a:array[1 ... 15] of integer;

begin

for i:=1 to 15 do

begin

a[i]:=random (1000) ;

end;

for i:=1 to 15 do

begin

if odd (a[i]) then s:=s+1;

end;

writeln ('ne4etnix 4isel-', s) ;

end.

как то так 1-я задача