Question

Необходимо решение задач по ИКТ Pasckal 10 класс!!! Используя только знания 10 класса.
1) Найти сумму элементов побочной диагонали.
2) Найти сумму элементов в каждой строке.
3) Найти произведение элементов.
4) Найти произведение главной диагонали.

Answer 1

Program lol;
car a : array [1..6,1..6] of real ; i,j : real ;s,S1,s2,s3,s4,s5,p,p1 : real ;
begin
s:=0;s1:=0;s2:=0;s3:=0;s4:=0; p:=1;p1:=1;
for i:=1 to 6 do begin
for j:=1 to 6 do read (a[i,j]); end;
for i:=1 to 6 do begin
for j:=1 to 6 do begin if (i=j) then p:=p*a[i,j]; end;end;
writeln('произведение на глав диагонале= ',p);
for i:=1 to 6 do begin
for j:=1 to 6 do begin p1:=p1*a[i,j]; end;end;
writeln('произведение всех элементов= ', p1);
for j:=1 to 6 do begin s:=s+a[1,j]; end;
writeln (' сумма 1-ой строки=',s);
for j:=1 to 6 do begin s1:=s1+a[2,j]; end;
writeln (' сумма 2-ой строки=',s1);
for j:=1 to 6 do begin s2:=s2+a[3,j]; end;
writeln (' сумма 3-eй строки=',s2);
for j:=1 to 6 do begin s3:=s3+a[4,j]; end;
writeln (' сумма 4-ой строки=',s3);
for j:=1 to 6 do begin s4:=s4+a[5,j]; end;
writeln (' сумма 5-ой строки=',s4);
for j:=1 to 6 do begin s5:=s5+a[6,j]; end;
writeln (' сумма 6-ой строки=',s5);
for i:=1 to 6 do begin
for j:=1 to 6 do begin s5:=a[1,6]+a[2,5]+a[3,4]+a[4,3]+a[5,2]+a[6,1];end;end;
writeln('сумма чисел на побочной диагонале=',s5);
end.

Answer 2

2)s:=0; s1:=0; s2:=0; s3:=0; s4:=0; s5:=0; for j:=1 to 6 do begin s:=s+a[1,j]; end;
writeln (' сумма 1-ой строки=',s);
for j:=1 to 6 do begin s1:=s1+a[2,j]; end;
writeln (' сумма 2-ой строки=',s1);
for j:=1 to 6 do begin s2:=s2+a[3,j]; end;
writeln (' сумма 3-eй строки=',s2);

Answer 3

for j:=1 to 6 do begin s3:=s3+a[4,j]; end;
writeln (' сумма 4-ой строки=',s3);
for j:=1 to 6 do begin s4:=s4+a[5,j]; end;
writeln (' сумма 5-ой строки=',s4);
for j:=1 to 6 do begin s5:=s5+a[6,j]; end;
writeln (' сумма 6-ой строки=',s5); end.

Answer 4

3) p:=1; for i:=1 to 6 do begin
for j:=1 to 6 do begin p1:=p1*a[i,j]; end;end;
writeln('произведение всех элементов= ', p1); end.

Answer 5

4) p:=0; for i:=1 to 6 do begin
for j:=1 to 6 do begin if (i=j) then p:=p*a[i,j]; end;end;
writeln('произведение на глав диагонале= ',p); end.

Answer 6

и еще во всех задачах после begin пишите for i:=1 to 6 do begin
for j:=1 to 6 do read (a[i,j]); end; (а то, когда разделяла задачу , только в 1 вставила этот счетчик)