Задачи на языке программирования Паскаль

Зада на языке Паскаль 9 класс

1. Вывод 5 случайных чисел

Program n_5;

const

n=5;

var i: integer;

a: array [1..n] of integer;

begin

randomize;

For i:=1 to n do

begin

a[i]:= random(50);

writeln ('a[',i, ']=', a[i]);

end;

end.

1. Вычисление суммы и произведения 3 элементов массива

Program n_4;

const

n=3;

var i, s, p: integer;

a: array [1..n] of integer;

begin

randomize;

For i:=1 to n do

begin

a[i]:= random(100);

writeln ('a[',i, ']=', a[i]);

end;

s:=0;

p:=1;

For i:=1 to n do

begin

s:= s+a[i];

p:= p*a[i];

end;

writeln ('s=', s);

writeln ('p=', p);

end.

1. Вычисление суммы элементов массива

Program n_4;

const

n=20;

var i, s: integer;

a: array [1..n] of integer;

begin

randomize;

For i:=1 to n do

begin

a[i]:= random(100)+50;

writeln ('a[',i, ']=', a[i]);

end;

s:=0;

For i:=1 to n do

s:= s+a[i];

writeln ('s=', s)

end.

1. Сумма чисел кратных 6

var n, s, k, g: integer;

begin

s:=0;

readln(n);

for k:=1 to n do

begin

readln(g);

if (g mod 6 = 0) then

s:=s+g;

end;

writeln(s);

end.

1. Вычисление факториала

Program n_3;

var i, n, fact: integer;

begin

writeln('введите переменную n');

readln (n);

fact:=1;

For i:=1 to n do

fact:= fact*i;

writeln ('Факториал числа n=', fact);

end.