Uses crt; const n=10; var a:array[1..n] of integer; i,k:integer; begin k:=3; a[1]:=2; for i:=2 to n do begin a[i]:=a[i-1]+k; k:=k+2; end; for i:=1 to n do writeln(a[i]); end.
Program A_1; uses crt; Var i,n,sum: integer; begin write('Введите N '); readln(n); i:=0; sum:=0; repeat i:=i+1; sum:=sum+i; until i=n; writeln('Сумма чисел от 1 до ',n,' равна ',sum); end.
Program B_2; uses crt; Var i,n,sum: integer; begin write('Введите N '); readln(n); i:=0; sum:=0; repeat i:=i+1; sum:=sum+i*i; until i=n; writeln('Сумма квадратов чисел от 1 до ',n,' равна ',sum); end.
Program V_3; uses crt; Var i,n,sum: integer; begin write('Введите N '); readln(n); i:=0; sum:=0; repeat i:=i+1; if (i mod 2 = 0) then sum:=sum+i; until i=n; writeln('Сумма чётных чисел в диапазоне от 1 до ',n,' равна ',sum); end.
Program G_4; uses crt; Var i,n,sum: integer; begin i:=9; sum:=0; repeat i:=i+1; sum:=sum+i; until i=99; writeln('Сумма всех двузначных чисел равна ',sum); end.
Может ли массив содержать целые и вещественные значения? -Да может,если массив имеет вещественный тип Для чего необходимо описание массива? -Чтобы создать массив с указанным количеством элементов и типом их значений Что вы можете сказать о массиве, сформированном следующим образом: а)Тут мы заполняем массив a с индексами от 1 до 10 случайными целыми числами от -50 до 50 б)Тут мы заполняем массив a с индексами от 1 до 20, присваивая каждому элементу массива значение его индекса в)Тут мы заполняем массив a с индексами от 1 до 5, присваивая каждому элементу массива удвоенное значение его индекса минус 1
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
k:=3;
a[1]:=2;
for i:=2 to n do
begin
a[i]:=a[i-1]+k;
k:=k+2;
end;
for i:=1 to n do
writeln(a[i]);
end.