Одномерные массивы. дан массив натуральных чисел, состоящий из n элементов. найти сумму элементов массива, - id273246420210612 от помидор2324 12.06.2021 20:43

Question

Информатика: Одномерные массивы. дан массив натуральных чисел, состоящий из n элементов. найти сумму элементов массива, кратных данному числу к. (паскаль)

помидор2324 · Accepted Answer

Const
k = 5;

var
x: array [1..k] of integer;
i, min_index, k2: integer;

begin
writeln('Enter x:');
for i := 1 to k do
begin
    write('x[', i, '] = ');
    readln(x[i]);
end;

min_index := 1;
k2 := 0;
for i := 1 to k do
begin
    if x[min_index] > x[i] then
      min_index := i;
    if x[i] mod 2 = 0 then
      k2 := k2 + 1;
end;

if k2 > 0 then
    x[min_index] := k2;


writeln('x:');
for i := 1 to k do
    writeln('x[', i, '] = ', x[i]);
writeln('k2 = ', k2);
writeln('min = ', x[min_index]);
end.

Одномерные массивы. дан массив натуральных чисел, состоящий из n элементов. найти сумму элементов массива, кратных данному числу к. (паскаль)

MOGZ ответил