Первый вариант программы:
Const
N = 5;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
S:=S+A[i];
End;
WriteLn;
WriteLn('Сумма его элементов: ',S);
End.
Пример:
Исходный массив: -6 -9 8 7 1
Сумма его элементов: 1
Второй вариант программы:
Const
N = 13;
Var
A:array[1..N] of integer;
i,S,B:integer;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
End;
WriteLn;
Write('Введите номера пяти элементов: ');
For i:= 1 to 5 do
Begin
Read(B);
S:=S+A[B];
End;
WriteLn('Их сумма равна: ',S);
End.
Пример:
Исходный массив: 0 -9 6 4 -7 -1 9 -7 -2 -4 -6 4 -1
Введите номера пяти элементов: 3 4 7 12 1
Их сумма равна: 23
Он и не должен быть, но если нет выхода из нее, то повод задуматься :D
Смотри на монитор: забей в поиске виды видеовходов, и ищи в них свой. Если у моника и видюхи есть схожие, то повезло, бери шнур под этот вход (градация по приоритету: Display port, HDMI, DVI все виды, VGA (вообще аналоговый вход, полное старьё, но еще встречается))
Uses crt;
var a=array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(50);
if (a[i]mod5=0) there
a[i]:=a[i]*2;
else
a[i]:=a[i]/2;
for i:=1 to 10 do
writeln(a[i]);
end.
№3
program fofgogjoj;
var
a,b,c,S,P:real;
begin
Writeln('Введите длину катета a');
Readln(a);
Writeln('Введите длину катета b');
Readln(b);
c:=sqrt(a*a+b*b);
P:=a+b+c;
S:=(1/2)*a*b;
Writeln('P=', P:0:2);
Writeln('S=', S:0:2);
end.