Var a,i,n:integer;
begin
writeln('Введите a');
readln(a); n:=0;
for i:=1 to a do begin
n:=n+1; writeln(i);
end;
writeln('N = ',n);
end.
В разделе описания переменных
var
a,b: integer;
Рисунки несут наглядную информацию. Текстовое сообщение не обладает свойством образности.Текстовая информация не образная,а знаковая.<span>Текст -это текстовые данные.</span>
Const
N = 20;
type
Tmas = array [1..N] of longint;
var
m: Tmas;
i, sum: longint;
begin
sum := 0;
for i := 1 to N do
begin
readln(m[i]);
if (m[i] mod 7 = 0) and (m[i] mod 10 = 1) then
sum := sum + m[i] ;
end;
writeln(sum);
end.
пж как лучший
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.
Не проверено. Написал сходу в окне.