Информатика, опубликовано 2018-08-22 18:56:36 by Гость
Создать массив B 7 ЭЛЕМЕНТОВ В ИНТЕРВАЛЕ ОТ 0 ДО 10 , ЗАМЕНИТЬ ВСЕ ЭЛЕМЕНТЫ КРАТНЫЕ 3 НА СУММУ ЭЛЕМЕНТОВ МАССИВА.
Ответ оставил Гость
var a:array[1..7]of integer;
i,s:integer;
begin
for i:=1 to 7 do begin a[i]:=random(9)+1; s:=s+a[i]; end;
for i:=1 to 7 do write(a[i], );
writeln;
for i:=1 to 7 do if a[i] mod 3=0 then a[i]:=s;
for i:=1 to 7 do write(a[i], );
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на