С больше степенью вероятности 328 бит
<span>var a: array[1..3,1..4] of integer;</span>
<span> i,j,s: integer;
</span><span>begin
</span><span> for i:=1 to 3 do
</span><span> begin
</span><span> write('строка ',i,': ');
</span><span> for j:=1 to 4 do read(a[i,j]);
</span><span> end;
</span><span>// вывод массива на экран
</span><span> writeln('массив а по строкам:');
</span><span> for i:=1 to 3 do
</span><span> begin
</span><span> for j:=1 to 4 do write(a[i,j]:4);
</span><span> writeln;
</span><span> end;
</span><span>// суммы элементов по строкам
</span><span> for i:=1 to 3 do
</span><span> begin
</span><span> s:=0;
</span><span> for j:=1 to 4 do s:=s+a[i,j];
</span><span> writeln('сумма элементов строки ',i,': ',s);
</span><span> end;
</span><span>end.
ввод - вывод
</span>строка 1: 10 11 12 13
<span>строка 2: 14 15 16 17
</span><span>строка 3: 18 19 20 21
</span><span>массив а по строкам:
</span><span> 10 11 12 13
</span><span> 14 15 16 17
</span><span> 18 19 20 21
</span><span>сумма элементов строки 1: 46
</span><span>сумма элементов строки 2: 62
</span><span>сумма элементов строки 3: 78
</span>
Program z1;
var a: string; b, c, i: integer;
begin
readln (a); writeln ();
c:= 0;
b:= lenght (a);
for<span> i</span>:=1 to<span> b </span>do
if (a[i]<span> ></span>= 'a') and (a[i]<span> <</span>= 'z') then begin
<span>write (a[i]); c </span>:=<span> c </span>+ <span>1; end;
</span>writeln (c);
end.
Надеюсь, этот вариант сработает.
<span>а) Ученик отвечает у доски:Источник -ученикПриемник: учитель и остальные ученики.Информационный канал: звуковое пространство или окружающая материальная среда, передающая звуковые волны.б) Боря читает статью в журнале: Источник - авторПриемник БоряИнф. Канал - печатное издание\журнал.в) Оля слушает песню по радио.Источник - радиоведущий/исполнитель композиции (если песня)...Приемник: ОляИнф. Канал: Радиоволны с радиотрансляторами и радиоприемниками.
г) Гена говорит с мамой по телефону.Если разговор взаимный, то Гена и его мама выступают поочередно источниками и приемниками.Инф канал: телефон.
д) Водитель автобуса объявляет остановку.Источник: водительПриемник: пассажирыИнф канал: система оповещения в автобусе.</span>
Const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i: integer;
begin
N := 20;
for i:=1 to N do
a[i] := Random(20)-10;
writeln('Элементы массива: ');
for i:=1 to N do
write (a[i],' ');
writeln;
for i:=1 to N do
begin
if (a[i]=0) then
writeln(a[i],' ',i);
end;
end.
