Программа отдельно вычисляет произведения строк и столбцов заданных ячеек.
Program n1; Uses CRT; Const n=10; Var a: array[1..n,1..n] of integer; i,j,x1,x2,y1,y2: integer; p1,p2,p3,p4: longint; begin ClrScr; For i:=1 to n do begin For j:=1 to n do begin a[i,j]:=random(10); a[i,j]:=a[i,j]+1; write(a[i,j]:3); end; writeln; end; Writeln('Vvedite pervyu paru koordinat'); Readln(x1,y1); Writeln('Vvedite vtoruu paru koordinat'); Readln(x2,y2); p1:=1; p2:=1; p3:=1; p4:=1; For i:=1 to n do begin p1:=p1*a[i,y1]; p2:=p2*a[i,y2]; end; For i:=1 to n do begin p3:=p3*a[x1,j]; p4:=p4*a[x2,j]; end; Writeln('Proizvedenie strok = ',p1*p2); Writeln('Proizvedenie stolbcov = ',p3*p4); readln end.
N: array [1..15] of 1..15; {Массив, в который записываются номера положительных элементов массива х}
x: array [1..15] of real; //Массив х
i: integer; //Переменная для цикла
Number: integer; //Сколько номеров было записано
begin
Number:= 0; //Обнуляем счетчик номеров
for i:= 1 to 15 do //Вводим с клавиатуры массив х
begin
writeln('Введите ', i, ' элемент массива х');
readln(x[i]);
if x[i] > 0 then {Если введенный элемент массива х положительный, то прибавляем к счетчику добавленных номеров 1 и присваиваем соответствующему элементу массива N номер элемента}
begin
Number:= Number + 1;
N[Number]:= i;
end;
end;
write('Номера положительных элементов массива х: ');
for i:= 1 to Number do write(n[i], ' '); //Выводим записанные номера элементов
writeln; {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}
Программа отдельно вычисляет произведения строк и столбцов заданных ячеек.
Program n1;
Uses CRT;
Const n=10;
Var a: array[1..n,1..n] of integer;
i,j,x1,x2,y1,y2: integer;
p1,p2,p3,p4: longint;
begin
ClrScr;
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(10);
a[i,j]:=a[i,j]+1;
write(a[i,j]:3);
end;
writeln;
end;
Writeln('Vvedite pervyu paru koordinat');
Readln(x1,y1);
Writeln('Vvedite vtoruu paru koordinat');
Readln(x2,y2);
p1:=1; p2:=1; p3:=1; p4:=1;
For i:=1 to n do
begin
p1:=p1*a[i,y1];
p2:=p2*a[i,y2];
end;
For i:=1 to n do
begin
p3:=p3*a[x1,j];
p4:=p4*a[x2,j];
end;
Writeln('Proizvedenie strok = ',p1*p2);
Writeln('Proizvedenie stolbcov = ',p3*p4);
readln
end.
var
N: array [1..15] of 1..15; {Массив, в который записываются номера положительных элементов массива х}
x: array [1..15] of real; //Массив х
i: integer; //Переменная для цикла
Number: integer; //Сколько номеров было записано
begin
Number:= 0; //Обнуляем счетчик номеров
for i:= 1 to 15 do //Вводим с клавиатуры массив х
begin
writeln('Введите ', i, ' элемент массива х');
readln(x[i]);
if x[i] > 0 then {Если введенный элемент массива х положительный, то прибавляем к счетчику добавленных номеров 1 и присваиваем соответствующему элементу массива N номер элемента}
begin
Number:= Number + 1;
N[Number]:= i;
end;
end;
write('Номера положительных элементов массива х: ');
for i:= 1 to Number do write(n[i], ' '); //Выводим записанные номера элементов
writeln; {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}
end.