Водномерном массиве из 10 элементов вычислить сумму тех элементов,которые меньше заданного x.заменить все нечетные их квадратами
Diannata
3
16.05.2019 18:58
0
Другие вопросы по теме Информатика
ник11073
04.09.2019 11:50
egoregorcherk
18.12.2020 10:41
talyaarpaci
18.12.2020 10:40
Alinasia
18.12.2020 10:40
typaydevochka
15.12.2019 12:08
rashantixaip
06.04.2022 07:15
красав4ик007
06.04.2022 07:15
mikki255
15.04.2020 10:29
7446457567
15.04.2020 10:29
Популярные вопросы
- Вставьте подходящий артикль в предложения. 1) europe is bordered towards...
1 - Решить пример класс (52000-w)-700равно 48300...
3 - Мошенники разбавляют французские духи «шанель № 5» одеколоном «огуречный»,...
1 - На какие группы разделены жители древнего мира...
2 - Какой из двух текстов относится к стихам. ; в саду уже поселилась темным...
3 - Брату 21 год .он на 7 лет старше сестры .сколько лет сестре?...
1 - Заполните таблицу ! ткани-соединительная, мышечная, нервная, эпителиальная...
2 - Больше ,меньше, 4метра5метров *450сантиметров...
2 - Мне нужно придумать кроссворд по музыке , на тему бах и бетховен ? ?...
2 - Найти модуль вектора z, если z=m+2n, (m^n)=30, модуль m=1, модуль n=2....
1
var
a:array[1..10]of integer;
i,x,s:integer;
begin
read(x);
for i:=1 to 10 do
begin
readln(a[i]);
if a[i] mod 2<>0 then a[i]:=a[i]*a[i];
if a[i]<x then s:=s+a[i];
end;
write(s);
end.
Объяснение: