Регистрация
mishac1470
16.01.2023 17:44
Информатика
Есть ответ 👍

До ть будь ласка. Хто може ів

141
296
Посмотреть ответы 1

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

ninaschemetowa
ninaschemetowa
4,8(87 оценок)
Program prog; uses crt; var a: array [1..10] of integer;       i,k: integer;       begin clrscr; randomize; k: =0; for i: =1 to 10 do       begin       a[i]: =random(100)-50;       writeln ('a[',i,'] = ', a[i]);       if a[i]> 0 then inc(k);       end; writeln; write('k = ', k); end.

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