Регистрация
Руся20031
28.02.2023 06:10
Информатика
Есть ответ 👍

Оқушылар интернеттен алынған ақпараттың авторын анықтай алмады. құжаттың көшірме еместігін дәлелдеу әрекетін көрсетіңіз жауабы бар ма? ​

292
465
Посмотреть ответы 1

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

enotic009
enotic009
4,5(27 оценок)
Var     i,max,n: integer;     a: array[1..10]of integer; begin for i: =1 to 10 do   begin   a[i]: =random(10);   write(a[i],' ');   if a[i]> =max then     begin     max: =a[i];     n: =0;     end     else n: =n+1;   end; writeln; writeln('ответ: ',n); end. 

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