Задать вопрос Регистрация
Помочь другим

  • помогите составить программу: Сформулировать массив из 12 произвольных чисел.Определить сумму квадратов элементов с чётными индексами. Результат вывести на экран.

Ответы 1

  • var a:array [1..100] of integer;i,n,s:integer;Begin  randomize;  n:=12;  for i:= 1 to n do begin    a[i]:=random(n*10)- 10*n div 2 ;    write(a[i]:4);    if i mod 10=0 then writeln;  end;

      for i:= 1 to n do begin    if i mod 2 =0 then

          s:=s+a[i];  end;  writeln(s);  End.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years