Решить пример на одномерный массив что бы мы ввели одно число а компьютер сам подставил другие+сумма всех массивов.
begin i:=1 to 5
write ('введите a [',i,']=');
Readln (a[i]);
end;

1

Ответы и объяснения

2013-09-19T20:31:08+00:00
Program massiv;
uses crt;
const n=5;
type x=array[1..n] of integer;
var a:x;
     i,j:integer;
begin
writeln('vvedite a[1]=');
readln(a[1]);
for i:=2 to 5 do
begin
a[i]:=random(20);
j:=j+a[i];
end;
j:=j+a[1];
writeln('Symma vseh elemntov=',j);
end.