Регистрация
Georgiy111111
04.08.2022 20:31
Информатика
Есть ответ 👍

Ниже таблица колебания доллара по отношению к тенге за 2017, 2018 и 2019 годы . проанализируйте данные таблицы

273
299
Посмотреть ответы 1

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

kris0287
kris0287
4,4(53 оценок)

Программа:

Pascal:

program nuli;

var M:array[1..12] of integer;

i, n: integer;

k:string;

Begin

randomize;

k:='нет';

for i:=1 to 12 do M[i]:= random(10);

for i:=1 to 12 do write(M[i]:3);

writeln();

for i:=1 to 12 do begin

if M[i]=0 then write(' + ') else write(' - ');

end;

writeln();

write();

for i := 1 to 12 do

 if M[i] = 0 then inc(n);

writeln(n);

end.

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