Генератором случайных чисел (от 0 до 100) задан массив из 20 целых чисел.составьте программу, с которой напечатайте на одной строчке исходный массив, а на следующей строке - сумму квадратов элементов с начетными индексами
shulbert
1
21.05.2019 20:30
0
Другие вопросы по теме Информатика
khairullina05
16.04.2020 15:48
dasha1970
16.04.2020 15:48
кирилл22895
10.08.2019 04:30
enatusya55
18.05.2021 21:43
Shagovikova08
18.05.2021 21:39
sagunush13
03.02.2022 06:55
varlamovanastya
03.02.2022 06:42
Angeliiiiina662727
03.02.2022 06:42
Vova77723
03.02.2022 06:40
машазайка1
24.03.2020 23:12
Популярные вопросы
- Найди значение произведений реши их в столбик 49×82 604×83 216×129...
3 - Что такое области высотной поясности...
1 - Как правильно разделить на слоги слово- галстук?...
2 - Почему членистоногие не могут дышать при кожи?...
3 - Слова с орфограмами в приставках с буквами соглассных 10 слов...
3 - Составить сложный план к сочинению по теме печорин герой или злодей...
3 - Сочинение на тему экология и здоровье человека...
3 - Какие человек должен соблюдать правила чтобы не заболеть...
2 - Добрый вечер всем, решить . дан план участка, периметр которого 98...
1 - Придумай предложения со словами пенки-пеньки...
2
uses crt;
var i,s:integer;
a:array[1..20] of integer;
begin
for i:=1 to 20 do a[i]:=random(100)+0;
for i:=1 to 20 do write(a[i],' ');
writeln;
for i:=1 to 20 do if i mod 2 <>0 then s:=s+sqr(a[i]);
writeln('suma = ',s);
readln;
end.