генератором случайных чисел (от 0 до 100) задан массив из 20

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

Задать свой вопрос
2 ответа
Const  n = 20;
var  a :array [1..n] of integer;  i, sum :integer;
begin
  randomize;  for i:= 1 to n do    a[i]:= random(100);  for i:= 1 to n do    write(a[i],' ');  writeln;      sum:= 0;  for i:= 1 to n do    if i mod 2 = 1 then      sum:= sum + sqr(a[i]);  writeln(sum);
end.


для тебя как надо решать есть 2 способа


Нелли Улыбина
хоть каким , основное ,чтоб было верно
Вадик
я ошиблась, извините, конечно это не лучший ответ, а лучший написан ниже от Pro100cool!
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт