//PascalABC.Net 3.1 сборка 1200
uses System;
var
n: longint;
begin
var s := new List<longint>();
repeat
Readln(n);
if n <> 0 then s.Add(n);
until n = 0;
Println(s);
var av := s.Average;
Println(s.Where(x -> x > av));
end.
Дано:
Книга содержит 15 страниц.
На каждой странице - 20 строк.
В каждой строке 40 символов
1) 15 * 20 * 40 = 1200 - символов всего.
2) 1200 * 6 = 72000 байтов = 70.31 килобайтов
Ответ: 70.31 килобайтов.
у оружейника останется 1 обойма с 9 патронами т.е В)
так как 6+7+8=21 и 10+11=21
Ответ: В)
Const
M = 3;
N = 4;
Var
A:array[1..M,1..N] of integer;
i,j,k:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to M do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(71)-30;
Write(A[i,j]:3,' ')
End;
WriteLn;
End;
Write('Номер столбца: ');
For j:= 1 to N do
Write(j:3,' ');
WriteLn;
Write('Искомое кол-во:');
For j:= 1 to N do
Begin
k:=0;
For i:= 1 to M do
if A[i,j]>0 then k:=k+1;
Write(k:3,' ');
End;
End.
Пример:
Исходный массив:
33 -21 -24 4
-20 28 -29 25
-15 -1 11 3
Номер столбца: 1 2 3 4
Искомое кол-во: 1 1 1 3
Антоним слова страшный-бесстрашный, храбрый