Const
n = 10;
m = 10;
var i, j, column, row, sum_column, sum_row: integer;
arr: array [1..n,1..m] of integer;
begin
for i :=1 to n do
begin
for j:=1 to m do
begin
arr[i,j]:= random()*10;
end;
end;
readln(row);
readln(column);
sum_column:= 0;
sum_row := 0;
for i:=1 to n do
begin
sum_row := sum_row + arr[i,row];
end;
for j:=1 to m do
begin
sum_column := sum_column + arr[column, j];
end;
writeln(sum_column);
writeln(sum_row);
end.
Не проверено. Написал сходу в окне.
Задача №1
var i, sum, x: integer;
begin
sum := 0; //начальная сумма
for i := 1 to 10 do //счётчик до 10
begin
write('Введите число ', i ,': ');
readln(x);
sum:= sum + sqr(x); //к сумме прибавляем квадрат введенного числа
end;
writeln('Сумма квадратов чисел = ',sum);
end.
Задача №2.
var i, sum: integer;
begin
sum := 0; //начальная сумма
for i := 26 to 88 do //счётчик от 26 до 88
begin
if i mod 2 = 0 then //проверка на чётность, если остаток от деления равен 0, то число чётное
sum:= sum + i; //к сумме прибавляем число
end;
write(sum);
end.
Uses crt;
var a,x:integer;
i,s:integer;
begin
writeln('введите целое число');
readln( a ); x:=a;
s:=0;
while ( x<>0 ) do
begin
s := s + (x mod 10);
x := x div 10;
end;
writeln( 'Сумма цифр числа ',a,' = ', s );
if s=10 then
writeln('Верно')
else
writeln('Неверно');
end.
<span>100011011101 = 2269. Изначально число уже в двоичной системе</span>