Предмет: Информатика,
автор: almaz41
составить программу.Сформировать одномерный массив n=10 a[I]=i^3 1 8 27... найти сумму 1-го,5-го и последнего элемента.
Ответы
Автор ответа:
0
const
n = 10;
var
a: array[1..n] of integer;
i: integer;
begin
for i := 1 to n do
a[i] := i * i * i;
writeln(a[1] + a[5] + a[n]);
end.
n = 10;
var
a: array[1..n] of integer;
i: integer;
begin
for i := 1 to n do
a[i] := i * i * i;
writeln(a[1] + a[5] + a[n]);
end.
Автор ответа:
0
1. Короткий вариант
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=1.To(10).Select(x->x*x*x).ToArray; a.Println;
Writeln('s=',a[0]+a[4]+a[9])
end.
Результат
1 8 27 64 125 216 343 512 729 1000
s=1126
2. Школьный вариант
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
var
i:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do begin
a[i]:=i*i*i;
Write(a[i],' ')
end;
Writeln;
Writeln('s=',a[1]+a[5]+a[10])
end.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=1.To(10).Select(x->x*x*x).ToArray; a.Println;
Writeln('s=',a[0]+a[4]+a[9])
end.
Результат
1 8 27 64 125 216 343 512 729 1000
s=1126
2. Школьный вариант
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
var
i:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do begin
a[i]:=i*i*i;
Write(a[i],' ')
end;
Writeln;
Writeln('s=',a[1]+a[5]+a[10])
end.
Похожие вопросы
Предмет: Математика,
автор: elenanesterenko416
Предмет: История,
автор: sabitbeksoltanov
Предмет: Алгебра,
автор: nargizumarova37
Предмет: Информатика,
автор: freelaygamer