Напишите программу подсчета количества и суммы нечетных элементов массива
Напишите программу подсчета количества и суммы нечетных элементов массива
Гость
Ответ(ы) на вопрос:
Гость Код Pascal1
2
3
4
5
6
7
8
9
10
11
12
begin
var Size := ReadLnInteger('Размер массива =');
var A : array of Integer; SetLength(A, Size);
for var i := 0 to pred(Size) do
A[i] := ReadLnInteger('A[' + (i+1).ToString + '] =');
WriteLn('Введён массив A = ', A);
var count := 0; for var i := 0 to pred(Size) do if Not odd(A[i]) then count += 1;
WriteLn('В массиве чётных элементов: ', count);
var max := 0; for var i := 1 to pred(Size) do if A[max] < A[i] then max := i;
var k := ReadLnInteger('k = '); A[max] *= k;
WriteLn('Массив A = ', A);
end.
Не нашли ответ?
Похожие вопросы