#include <iostream>
#include <vector>
using namespace std;
typedef pair<int, int> rb;
int main() {
vector<rb> lst;
int n;
cout<<"n = "; cin>>n;
int a[n][n];
for (int i=0; i<n; i++) {
cout<<"row "<<i+1<<": ";
for (int j=0; j<n; j++) cin>>a[i][j];
}
cout<<"list of edges"<<endl;
for (int i=0; i<n; i++)
for (int j=i+1; j<n; j++)
if (a[i][j]>0) lst.push_back(make_pair(i+1,j+1));
for (int i=0; i<lst.size(); i++)
cout<<lst[i].first<<" "<<lst[i].second<<endl;
system("pause");
return 0;
}
var
a: array[1..100] of integer;
n, i: byte;
sum, p: integer;
begin
Randomize;
readln(n);
sum:=0; p:=1;
for i:=1 to n do
begin
a[i]:=Random(101)-50;
write(a[i]:4);
sum:=sum+a[i];
p:=p*a[i];
end;
writeln;
writeln('Сумма = ', sum:5);
writeln('Произведение = ', p:5);
sum:=0; p:=1;
writeln('');
writeln('2. С клавиатуры');
for i:=1 to n do
begin
write('Элемент ', i, ' = ');
readln(a[i]);
sum:=sum+a[i];
p:=p*a[i];
end;
writeln('Сумма = ', sum:5);
writeln('Произведение = ', p:5);
end.
Подробнее - на -
i, x: integer;
begin
writeln('введите элементы массива A: ');
for i := 1 to 25 do begin
read(A[i]);
if A[i] mod 3 = 0 then
begin
x := x + 1;
B[x] := A[i];
end;
end;
write('элементы массива A, кратные трём: ');
for i := 1 to x do begin
write(B[i], ' ');
end;
end.
2) var A, B, C: array[1..10000] of integer;
i, n, x: integer;
begin
writeln('введите размеры обоих массивов: ');
read(n);
write('введите элементы массива A: ');
for i := 1 to n do begin
x := x + 1;
read(A[i]);
end;
write('введите элементы массива B: ');
for i := 1 to n do begin
read(B[i]);
end;
write('элементы массива C: ');
for i := 1 to x do begin
C[i] := A[i];
write(C[i], ' ');
C[i] := B[i];
write(C[i], ' ');
end;
end.