Регистрация
rootme
24.06.2021 15:33
Информатика
Есть ответ 👍

Часы на питоне используя циклы​

134
152
Посмотреть ответы 1

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

Tanya6164
Tanya6164
4,7(29 оценок)
1)   var  a: array[1..10] of integer; i: integer; begin randomize; for i: =1 to 10 do a[i]: =random(100)-40; writeln; i: =1; while i< =10 do begin  if a[i]< 0 then begin a[i]: =0; i: =11; end; inc(i); end; for i: =1 to 10 do write(a[i]: 3); end.2)var a: array[1..10] of integer; i: integer; beginfor i: = i to 10 do read(a[i]); for i: = i to 10 do if a[i] mod 3 =0 then a[i]: =a[i]*3; for i: = i to 10 do write(a[i]); end.

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