begin
var k := 10;
var x := ReadArrReal('Введи 10 элементов Х:', k);
var y := SeqGen(k, n -> (x[n - 1] / 2) ** n / n, 1).Sum;
y.Println;
end.
то есть a[i] = i*2
var
a : array[1..20] of integer;
begin
for var i := 1 to 20 do a[i] := i*2;
end.
var a:array[1..2,1..30] of integer;
i,j:integer;
Begin
for i:= 1 to 30 do begin
writeln('Введите номер ученика:');
read(a[1,i]);
writeln('Введите оценку:');
read(a[2,i]);
end;
for i:= 1 to 10 do begin
writeln(i:2,' - ');
for j:= 1 to 30
if a[1,j]=i then
write(a[2,i],' ');
end;
readkey;
End.
Моделирование - это метод познания, заключающийся в создании и исследовании моделей.
Цели моделирования:
-Понять сущность изучаемого объекта
-Научиться управлять объектом
-Прогнозировать прямые или косвенные последствия
-Решать прикладные задачи