Дан целочисленный массив из 30 частей. Элементы массива могут принимать целые
Дан целочисленный массив из 30 частей. Элементы массива могут принимать целые значения от 0 до 10 000 включительно. Опишите на одном из языков программирования метод, который находит сумму частей массива, меньших 200 и при этом кратных 5, а потом сменяет каждый таковой элемент на число, равное отысканной сумме. Гарантируется, что хотя бы один таковой элемент в массиве есть. В качестве результата нужно вывести изменённый массив, каждый элемент выводится с новейшей строки. Например, для начального массива из шести элементов:
204 115 27 20 305 4
программка должна вывести (по одному числу в строке) числа
204 135 27 135 305 4
Язык Паскаль
Program Begenjov1997;
const
n = 30; Количество частей массива
m = 10000; Очень вероятное значение элемента
var
a:array[1..n] of integer;
i, sum: integer;
s:string;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(60) end;
наполняем массив случайными числами
writeln; randomize;
for i:=1 to n do a[i]:=random(m+1);
Ищем наибольший и минимальный элементы
sum:=0;
for i:=1 to n do
if (a[i]lt;200) and (a[i] mod 5 = 0) then sum:=sum+a[i];
Заменяем эти элементы найденной суммой
for i:=1 to n do
if (a[i]lt;200) and (a[i] mod 5 = 0) then a[i]:=sum;
Вывод
writeln;
for i:=1 to n do writeln(a[i]);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.