Доповни команду знаходження кількості слів, які встиг
перекласти учень.
Програма "Учень"
• x — потилиця і вікно
у – малювання
2- пошук гумки
• k – час на переклад
k= 120 – (x+y+2)
s – кількість слів
на одне слово 5 хвилин
172
471
Ответы на вопрос:
Var a: array [1..5,1..3] of integer; b: array[1..5] of integer; x,y,i,n,max: integer; begin i: =1; randomize; for x: =1 to 5 do for y: =1 to 3 do a[x,y]: =random(10); for x: =1 to 5 do begin for y: =1 to 3 do write(a[x,y],' '); writeln; end; for y: =1 to 3 do begin for x: =1 to 5 do b[i]: =b[i]+a[x,y]; i: =i+1; end; for i: =1 to 3 do if b[i]> max then max: =b[i]; writeln(max); end.
Популярно: Информатика
-
Sidi12308.12.2022 19:16
-
egorbroggo17.08.2020 07:42
-
Olegarxi13.06.2020 22:49
-
ЕлизаветаСиянко24.12.2022 04:12
-
NastjaKucera1326.05.2022 23:26
-
Юлия3456705.05.2020 10:09
-
lGeneralll26.04.2020 04:41
-
ruslanmorozko25.09.2020 03:17
-
андрей1221209.12.2021 03:00
-
Lilia5559016.04.2023 08:29