Предмет: Информатика, автор: danilkagubin

найти сумму элементов массива x[38] стоящих в четных ячейках

Ответы

Автор ответа: throwGame
0
program arr;
  var x:array[1..38] of integer;
      i, s:integer;
begin
  for i:=1 to 38 do
    read(x[i]);
  for i:=1 to 38 do
    if i mod 2 = 0 then
      s := s+x[i];
  writeln(s);
end.
Автор ответа: danilkagubin
0
оо большое спасибо
Похожие вопросы
Предмет: История, автор: nastyakrashlikee
Предмет: Математика, автор: svoroses