Регистрация
MissOmnomno
02.10.2021 23:12
Информатика
Есть ответ 👍

Информатика. напишите программу. дан массив a из 15 элементов заполнить из интервала от -10 до 40 и посчитать числа которые заканчиваются на 3

129
212
Посмотреть ответы 3

Ответы на вопрос:

GranitaBerchuk
GranitaBerchuk
4,6(87 оценок)

####################

Uchenik00ot00boga
Uchenik00ot00boga
4,5(23 оценок)

uses crt;

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

    k,i: integer;

begin

for i: =1 to 15 do

    begin

    a[i]: = random(40+10)-10;

    write (a[i] : 4);

    end;

k: =0;

for i: =1 to 15 do

if (a[i] mod 3=0) then k: =k+1;

writeln;

writeln (k);

end.

iuliaminakowa
iuliaminakowa
4,7(71 оценок)
Камень! камень может быть носителем информации: )

Популярно: Информатика