Генератором случайных чисел (от 0 до 100) задан массив из 20 целых чисел.составьте программу, с которой - id268337420210609 от Tasik3 09.06.2021 06:22

Question

Информатика: Генератором случайных чисел (от 0 до 100) задан массив из 20 целых чисел.составьте программу, с которой напечатайте на одной строчке исходный массив, а на следующей строке - сумму квадратов элементов с начетными индексами.

Tasik3 · 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.

MOGZ ответил