Всеми любимый Паскаль. Помощь в решении задач

[ovaaal]

Всеми любимый Паскаль. Помощь в решении задач

срочно нужно к контрольной, половину решил, а вот эти оказались не совсем по зубам, а времени на доскональное изучение нет.
прошу помочь кто чем сможет :tehnari_ru_109:

1.Разработайте программу для вычисления произведения положительных чисел. Десять вещественных чисел вводятся с клавиатуры пользователем.

2.Разработайте программу для вычисления суммы диагональных элементов матрицы 4х4. Вещественные числа вводятся с клавиатуры пользователем.

3.Разработайте программу для вычисления суммы всех элементов матрицы 3х3. Вещественные числа вводятся с клавиатуры пользователем.

4.
Разработайте программу для вычисления суммы всех положительных элементов массива 5х5. Вещественные числа вводятся с клавиатуры пользователем.

 

[Fenix]

С чем именно помочь?
1) решается через цикл, просто до безобразия.
2) цикл в цикле. 2х мерный массив.

Решите эти две, с 3-й и 4-ой проблем не будет.
Спрашивайте, что непонятно объясним.

 

[ovaaal]

первую решил:

uses crt;
 var b,c,n:integer;
 a,p:real;
 begin
 clrscr;
 p:=1;
 for c:=1 to 10 do
 begin
 writeln('vvedite' , c , 'chislo');
 readln(a);
 if a>=0 then
 p:=p*a;
 end;
 writeln(p);
 readkey;
 end.

вторую с чужой помощью тоже:

uses crt;
const
  nn = 4; {и строки и столбцы 0- т.к. матрица квадратная}
type
  matrix=array[1..nn,1..nn] of Real;
var
  a: matrix;
  i,j: integer;
  s:real;
begin
 clrscr;
 Writeln('vvod matrici');
 for i := 1 to nn do
 for j := 1 to nn do
  begin
    Write('Matrix[', i, ',', j,'] : '); 
    Readln(a[i, j]);                      {ну здесь я вроде как ввел матрицу}
  end;

 s := 0;
 for i := 1 to nn do begin
   s := s + a[i,i]; {прибавим элемент главной диагонали}
   s := s + a[i, nn+1-i]; {прибавим элемент побочной диагонали}
 end;

 WriteLn('summa diagonalhyh elementov = ', s:1:4);
 Readln
end.

3-яя практически аналогична второй,
а вот 4-ая, как я понимаю, аналогична 2-ой и 3-ей, но только с массивом (ну как-то так) я прав?

 

[Vladimir_S]

я прав?

Абсолютно!

 

[Vika_0_0]

нужна помощь по паскалю.

[mod2]Вика, у нас не принято во-первых, дублировать топики, во-вторых, цепляться к чужим темам. Ваш запрос перенесен в новую тему http://www.tehnari.ru/f43/t70334/ . Эта ТЕМА ЗАКРЫТА
Модератор[/mod2]