Дан ряд из 10 произвольных чисел: a[1], a[2], ... , a[10] (использовать функцию random()). Подсчитать и напечатать суммы троек стоящих рядом чисел: a[1]+a[2]+a[3], a[2]+a[3]+a[4], a[3]+a[4]+a[5], …… , a[8]+a[9]+a[10]
Ответы
Ответ дал:
2
Ответ:
var a: array [1..10] of integer;
var i,s: integer;
begin
randomize();
for i:=1 to 10 do
begin
a[i]:=random(10);
write(a[i],' ');
end;
writeln();
for i:=1 to 8 do
begin
s:=a[i]+a[i+1]+a[i+2];
writeln('a[',i,']+a[',i+1,']+a[',i+2,'] = ',s);
end;
end.
Вас заинтересует
3 месяца назад
3 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад