Program element_massiva5 var Sum, i : integer; a : array [1..15] of integer; begin Sum := 0; writeln('введите 15 чисел массива'); for i:=1 to 15 do begin readln(a[i]); end; Sum:=a[1]+a[2]+a[3]+a[4]+a[5]; Writeln(' ответ: ',Sum); end.
Uses Crt; const n=5; m=7; type Mas = array [1..n, 1..m] of integer; var i, j, j1, j2: integer; Sumj1, Sumj2: real; A: Mas; begin ClrScr; Randomize; SumJ1:=0; SumJ2:=0; for i:=1 to n do for j:=1 to m do A[i,j]:=random (10); WriteLn (' Massiv A: '); for i:=1 to n do begin for j:=1 to m do Write (A[i,j]:4); WriteLn; end; WriteLn; repeat Write (' Stolbez #1 = '); ReadLn(j1); until (j1>=1) and (j1<=m); repeat Write (' Stolbez #2 = '); ReadLn(j2); until (j2>=1) and (j2<=m) and (j1<>j2); for i:= 1 to n do SumJ1 := SumJ1+A[i,j1]; for i:= 1 to n do SumJ2:=SumJ2+A[i,j2]; SumJ1:=SumJ1/n; SumJ2:=SumJ2/n; WriteLn; WriteLn (' Srednee stolbza ', j1, ' = ', SumJ1:4:2); WriteLn (' Srednee stolbza ', j2, ' = ', SumJ2:4:2); ReadLn; end.
Окрім тубільних мешканців Північної Канади, нуукі, і мисливців за трофеями, найбільшу небезпеку для вівцебиків становлять зграї вовків. Під час нападу голодної зграї сіроманців, вівцебики утворюють захисне коло, щільно притискаючись тілами один до одного, і направляють свої роги на супротивника. У центрі кола ховаються телята. Коли хижак нападає, кільце не порушується, лише найближчий вівцебик підкидає нападника рогами, а сусіди затоптують його ногами. Вовки, пересвідчившись у тому, що прорватися кріз кільце неможливо, припиняють напад.
Але такий спосіб самозахисту не міг врятувати вівцебиків від озброєних мисливців. Коли ескімоси і нуукі уперше взяли у руки вогнепальну зброю, вони стали масово винищувати вівцебиків. Дитинчат відловлювали і відвозили до зоопарків. Після того, як уряд Канади зафіксував різке зниження чисельності вівцебиків, було заборонено полювання на них і почали
var
Sum, i : integer;
a : array [1..15] of integer;
begin
Sum := 0;
writeln('введите 15 чисел массива');
for i:=1 to 15 do
begin
readln(a[i]);
end;
Sum:=a[1]+a[2]+a[3]+a[4]+a[5];
Writeln(' ответ: ',Sum);
end.