Задание №3 по информатике
Написать программу, которая вычисляет сумму первых n целых положительных чисел.
program lab3;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a:array[1..100] of integer; // массив
s:longint;
i,n:integer;
begin
writeln ('vvedite N');
s:=0;
readln (n);
for i:=1 to n do begin
a[i]:=i;
s:=s+a[i];
end;
writeln ( 'Summa = ', s );
readln;
end.
program lab3;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a:array[1..100] of integer; // массив
s:longint;
i,n:integer;
begin
writeln ('vvedite N');
s:=0;
readln (n);
for i:=1 to n do begin
a[i]:=i;
s:=s+a[i];
end;
writeln ( 'Summa = ', s );
readln;
end.