program raf105;
const
n= 4; //Размер матрицы (кол-во и длинна строк). Можно менять
var
a:array[1..n,1..n] of integer;
asum:array[1..n] of integer;
i,j,k,sum,kolsum: integer;
x: boolean;
begin
write('Введите число k (не больше ',n,'): ');
readln(k);
for i:=1 to n do
begin
writeln;
writeln('Введите ',n,' чис. ',i,' стр.');
for j:=1 to n do
readln(a[i,j]);
end;
writeln;
writeln('Суммы элементов тех строк, в которых первые ',k,' элем. положительные');
for i:=1 to n do
begin
x:= true;
sum:= 0;
for j:=1 to k do
begin
if x and (a[i,j] <= 0)
then x:= false;
end;
if x
then
begin
for j:=1 to n do
sum+= a[i,j];
kolsum+= 1;
asum[kolsum]:= sum;
writeln(asum[kolsum]);
end;
end;
end.
<span>Пример 1. Квадраты чисел от 2-х до 10-и.
</span>for x:=2 to 10 do WriteLn(x*x);
<span>Пример 2. Латинский алфавит.
</span>for ch:='A' to 'Z' do Writeln(ch);
<span>Пример 3. Использование цикла с downto.
</span>for i:=10 downto 1 do WriteLn(i);
<span>Пример 4. Использование составного оператора.
</span><span>for x:=1 to 10 do begin
y:=2*x+3;
WriteLn('f(',x,')=',y);
end;
</span>
Информационный объём сообщения в кодировки ASCII будет равен количеству символов в сообщении умноженом на 8, ответ будет в битах.
I=N*8