Регистрация
Piragovicch
20.07.2021 00:19
Информатика
Есть ответ 👍

Паскаль. даны 10 двухзначных чисел. выведите сумму тех, которые не делятся на 3

284
364
Посмотреть ответы 2

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

nikakoy43
nikakoy43
4,7(29 оценок)
Const n=10;   var a: array[1..n] of integer; i,s: integer;   begin randomize; for i: =1 to n do   begin   a[i]: =random(90)+10;   write(a[i]: 4);   end; writeln; s: =0; for i: =1 to n do   if a[i] mod 3 < > 0 then s: =s+a[i]; writeln('сумма тех, которые не делятся на 3 = ',s); end. пример:   65   37   24   68   17   56   17   77   34   99 сумма тех, которые не делятся на 3 = 371
tlplusp02d7u
tlplusp02d7u
4,7(7 оценок)

var a: array[1..20,1..20]of integer; i,j: integer; beginfor i: =1 to 4 dofor j: =1 to 3 doreadln(a[i,j]); for i: =1 to 4 dofor j: =1 to 3 doif a[i,j]=0 then a[i,j]: =a[1,1]; for i: =1 to 4 do beginfor j: =1 to 3 dowrite(a[i,j],' '); writeln; end; end.

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