Регистрация
LOKI46
07.07.2021 00:32
Информатика
Есть ответ 👍

Паскаль АВС: В целочисленном массиве В[6] определить сумму положительных элементов делящихся на 3 без остатка и поставить её на место максимального элемента массива А[5].

222
455
Посмотреть ответы 2

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

calusiker
calusiker
4,7(14 оценок)

uses crt;

var

 i,sum: integer;

 b: array[1..6] of integer;

begin

 clrscr;

for i := 1 to 6 do

   readln(b[i]);  

 for i := 1 to 6 do

   if (b[i] mod 3 = 0) then  

     sum := sum + b[i];

 b[5] := sum;

end.

///Не знаю, что выводить на экран, т. к. в условии об этом ничего не сказано.

затура56
затура56
4,5(5 оценок)

1и4 наверно но это не точно

Объяснение:

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