Дано число k (0 < k < 11) и матрица размера 4 x 10. найти сумму и произведение элементов k-го столбца данной матрицы. , нужно написать программу в паскале
var j,i,k,sum,proizv: integer; A: array [1..4,1..10] of integer; begin proizv:=1; randomize; writeln('Матрица: '); for i:=1 to 4 do for j:=1 to 10 do A[i,j]:=random(21)-10; for i:=1 to 4 do begin for j:=1 to 10 do write(A[i,j]:5); writeln; writeln; end; writeln('Введите К: '); read(k); for i:=1 to 4 do begin sum:=sum+A[i,k]; proizv:=proizv*A[i,k]; end; writeln('Cумма чисел ',k,'-ого столбца: ',sum); writeln('Произведение чисел ',k,'-ого столбца: ',proizv); end.
а) буквы в словах слева направо разбивают на группы по две буквы в каждой, дальше меняют местами буквы в группах (если в слове нечётное количество букв, последнюю букву не переставляют): урок, весна, каникулы, информация, мокрому дождь не страшен; б) первую буква слова ставят последней, вторую - предпоследней и т. д.: арена, корзина, рюкзак; в) (наверное, АКЛАН, а не АНКЛАН?) также, как и в а), но если в слове нечётное количество букв, то последняя группа состоит из трёх букв и в ней 1-ая буква становится 3-ей, а 3-я - 1-ой: канал, гитара, телевизор; г) пронумеруем буквы слова слева направо: 0, 1, 2, ..., n-2, n-1, n. Вначале поставим букву под номером 0, потом n, затем 1, далее n-1 и т.д.: балкон, вагон, кабинет.
Const Sz = 1000; var a: array [1..Sz] of integer; a1: array [1..Sz] of integer; a2: array [1..Sz] of integer; a3: array [1..Sz] of integer; M: integer; N: integer; i: integer; k: integer;begin read(M); readln(N); for k:=1 to N do begin read(a[i]); readln(a1[i]); if (a[i]<>0) then a3[i]:=1 else a3[i]:=0; end; for k:=1 to N do begin if(a3[i]<>0) then begin for i:=1 to i do begin if(a3[k]=0) then d[i]:=1; if (a2[k]=i) then d[k]:=0; end; writeln(a3[i]) end;end;end. вроде так
j,i,k,sum,proizv: integer;
A: array [1..4,1..10] of integer;
begin
proizv:=1;
randomize;
writeln('Матрица: ');
for i:=1 to 4 do
for j:=1 to 10 do
A[i,j]:=random(21)-10;
for i:=1 to 4 do
begin
for j:=1 to 10 do
write(A[i,j]:5);
writeln;
writeln;
end;
writeln('Введите К: ');
read(k);
for i:=1 to 4 do
begin
sum:=sum+A[i,k];
proizv:=proizv*A[i,k];
end;
writeln('Cумма чисел ',k,'-ого столбца: ',sum);
writeln('Произведение чисел ',k,'-ого столбца: ',proizv);
end.