Ответы на вопрос:
1 var a: array [1..10] of integer; 2 i,k,l: integer ; 34 begin 5 randomize; 6 for i: =1 to 10 do7 a[i]: =random(50)-10 ; 8 for i: =1 to 10 do9 write(a[i],' ') ; 10 for i: =1 to 10 do 1112 while a[i]> =10 do13 begin 14 a[i]: =a[i] mod 10; 15 k: =k+1; 16 if k=1 then begin 17 l: =l+1; 18 k: =0; 19 end; 20 end; 21 writeln; 22 writeln(l); 23 readln; 24 end.
Популярно: Алгебра
-
ksushakorovina104.08.2022 00:48
-
makeewaalexandra22.01.2020 09:21
-
sonyavolkova2617.01.2020 11:58
-
Kuznecovaalexa200503.05.2021 13:00
-
gilewich25.06.2020 07:46
-
novkristinaa10.07.2021 11:54
-
kirill67r27.03.2021 17:58
-
mmmm007.01.2020 17:12
-
лол163505.06.2020 06:17
-
natusikfire08.05.2023 21:49