Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Создать массив 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.