Регистрация
akakkakksksak
07.11.2022 06:59
Информатика
Есть ответ 👍

Написать программу на языке паскаль . дан одновременный массив из п целых чисел .составить программу вычисления суммы элементов стоящих на четных местах

179
448
Посмотреть ответы 3

Ответы на вопрос:

Liza11111111112
Liza11111111112
4,4(37 оценок)

var

  a : array [1..1000] of integer;

  i, n, sum : integer;

begin

  read (n);

  for i : = 1 to n do read (a[i]);

  sum : = 0;

  for i : = 1 to n do

    if i mod 2 = 0 then inc (sum, a[i]);

  writeln (sum);

end.

angelinaignaty1
angelinaignaty1
4,7(82 оценок)

var

m: array[0..100]of integer;

i,k,n: integer;

begin

k: =0

randomize;

write('введите кол-во элементов массива');

read(n);

for i: =1 to n do

begin

m[i]: =random (30);

if i mod 2 =0 then k: =k+m[i]

else write ('четных элементов нет');

writeln ('сумма четных элементов', k);

end;

end.

alex8353
alex8353
4,4(11 оценок)
256 цветов = 8 бит. 8*10*10 = 800 бит или 100 байт.

Популярно: Информатика