Const
M = 3;
N = 3;
Var
A:array[1..M,1..N]of real;
B:array[1..N]of integer;
i,j:integer;
Begin
WriteLn('Заполни массив ',M,'x',N);
For i:= 1 to M do
For j:= 1 to N do
Read(A[i,j]);
For j:= 1 to N do
For i:= 1 to M do
if (A[i,j]>0) then B[j]:=B[j]+1;
j:=N;
For i:= 1 to N-1 do
if (B[j]>B[i]) then j:=i;
WriteLn(j)
End.
Монеты номиналом 1, 2, 4 и 5 рублей.
1=1
2=2
3=2+1
4=2+2
5=5
6=5+1
7=5+2
8=4+4
9=5+4
10=5+5
Ответ:
Объяснение:
Древнегреческий миф о Минотавре
// PascalABC.NET 3.0, сборка 1111
begin
var n:=ReadInteger('Длина последовательности= ');
var a:=ReadArrReal('Вводите члены последовательности'+#13#10,n);
var k:=a.TakeWhile(x->x<>0).Count;
if k=n then Writeln('Ноль в последовательности не найден')
else Writeln('Количество членов, включая первый нулевой: ',k+1)
end.
<u><em>Тестовое решение:</em></u>
Длина последовательности= 10
Вводите члены последовательности
-5.2 7 2.7 -3.18 6.11 0 -1.02 3.14 -3.8 -4
Количество членов, включая первый нулевой: 6
16 = 2^4 значит символ веси 4 бит
Вес текста = 384 * 4 бит = 1536.0 бит = 192.0 байт = 0.1875 Кбайт