Регистрация
waterrrfall
23.01.2021 07:08
Информатика
Есть ответ 👍

Напиши основные разделы (темы) при выполнении проекта.​

104
129
Посмотреть ответы 1

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

софи253
софи253
4,8(73 оценок)
Dim a(6) randomize timer for i = 1 to 6     a(i) = int(rnd * 20) - 10     if a(i) > 0 then s = s + 1     print a(i); " "; next i print print "s="; sновый  паскаль авсvar    a: array[1..6]of integer;     i,s: integer; begin  for i: =1 to 6 do    begin    a[i]: =random(-10,10);     if a[i]> 0 then s: =s+1;     write(a[i],' ')    end; writeln; writeln('количество положительных: ',s)end.старый  паскаль авс var     a: array[1..6]of integer;     i,s: integer; begin   for i: =1 to 6 do     begin     a[i]: =random(20)-10;     if a[i]> 0 then s: =s+1;     write(a[i],' ')     end; writeln; writeln('количество положительных: ',s) end.

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