Програмування масивів, Детальна інформація
Програмування масивів
2.5. Обчислення суми елементів масиву
Program pr2;
Uses сrt;
const n=20;
type massiv=array[1..n] of integer;
var
a:massiv;
i:integer;
s:integer;
begin
clrscr;
randomize;
for i:=1 to n do a[i]:=random(100);
writeln(‘Вихідні дані’);
for i:=1 to n do write(a[i]:4);
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
writeln(‘Результат’);
writeln(‘Сума s=’, s:4);
end.
2.6. Обчислення добутку елементів масиву з парними номерами.
Program pr3;
Uses crt;
const n=20;
type massiv=array[1..n] of integer;
var
a:massiv;
i:integer;
p:longint;
Program pr2;
Uses сrt;
const n=20;
type massiv=array[1..n] of integer;
var
a:massiv;
i:integer;
s:integer;
begin
clrscr;
randomize;
for i:=1 to n do a[i]:=random(100);
writeln(‘Вихідні дані’);
for i:=1 to n do write(a[i]:4);
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
writeln(‘Результат’);
writeln(‘Сума s=’, s:4);
end.
2.6. Обчислення добутку елементів масиву з парними номерами.
Program pr3;
Uses crt;
const n=20;
type massiv=array[1..n] of integer;
var
a:massiv;
i:integer;
p:longint;
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021