Uses crt;
var
a:array [1..255] of byte;
i,n,j:integer;
begin
for i:=1 to 255 do
begin
a[i]:=random(100);
write(a[i]," ");
end;
write("сколько чисел складывать:");
read(n);
for i:=1 to n do
begin
j:=J+a[i];
end;
writeln(j);
readln;
end.
const
n = 10;
var
a: array [1..n] of <em>integer</em>;
begin
a[1] := 1;
a[2] := 2;
write('1 2 ');
for i: integer := 3 to n do
begin
a[i] := a[i - 2] + a[i - 1];
write(a[i], ' ');
end;
<span>end.</span>
1 PowerPoint
2Об’єктами комп’ютерної презентації є :
· слайд
· напис
· малюнок
· таблиця
· діаграма
· відеофільм
· аудіозапис
· гіперпосилання
{
правильная программа, кол-во элементов вводится с клавиатуры
}
Program Summa;
uses crt;
type a1= array of integer;
var a: a1;
m,s,n: integer;
procedure Input;
const p=1;
const q=20;
var i: integer;
begin
randomize;
begin
for i:=0 to n-1 do a[i]:=random(q-p+1)+p;
write('a[',i,']=');
readln(a[i]);
end;
end;
procedure Print;
var i: integer;
begin
write('Массив целых чисел А: ');
for i:=0 to n-1 do write(' ',a[i]);
writeln;
writeln;
end;
procedure Sum( m: integer);
var i: integer;
begin
s:=0;
for i:=0 to m-1 do s:=s+a[i];
end;
Begin
ClrScr;
write('введите кол-во элементов в массиве: ');
readln(n);
SetLength(a, n);
Input;
ClrScr;
Print;
write('Сколько элементов суммировать: ');
readln(m);
Sum(m);
writeln;
writeln('Сумма ',m,' элементов масссива равна: ', s);
Sum(n);
writeln;
writeln('Сумма всех ',n,' элементов массива равна: ', s);
Writeln ('Среднее арифмитическое всех элементов равно ', s/n);
Readkey;
end.