алиночка206
25.05.2021 02:04

1)заполнить массив размером n целыми числами последовательно от 1 до n. вывести его на экран. найти сумму элементов массива и вывести ее на экран. 2)заполнить массив размером n целыми числами последовательно от n до 1. вывести его на экран. найти количество элементов массива, делящихся на 3 без остатка. 3)заполнить массив размером n квадратами целых чисел последовательно от 12 до n2. вывести его на экран. найти среднее арифметическое элементов массива и вывести его на экран.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
жанара06
30.06.2020 13:13
Program gt;
var a:array[1..1000]of integer;
i,n,s:integer;
begin
read(n);
for i:=1 to n do
begin
a[i]:=i;
write(a[i],' ');
end;
writeln;
s:=((1+n)*n)div 2;
writeln(s);
end.
2)
program gt;
var a:array[1..1000]of integer;
i,n,s:integer;
begin
read(n);
s:=0;
for i:=n downto 1 do
begin
a[i]:=i;
write(a[i],' ');
if(i mod 3=0)then s:=s+1;
end;
writeln;
writeln(s);
end.
3)
непонятно условие
там что за n2?
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота