Дан двумерный массив размером в 15 строк и 10 столбцов, заданных с помощью генератора случайных чисел в интервале от -5 до 10. Найти произведение элементов массива. Вывести сам массив и произведение элементов. Найти сумму отрицательных элементов массива. Вывести сам массив и сумму. Найти сумму элементов нечетных строк массива. Вывести сам массив и сумму. Найти минимальный элемент массива и его номер строки и столбца. Вывести сам массив и номера строки и столбца минимального элемента — Pascal(Паскаль)

Сформировать двумерный массив [6, 6].
1 2 3 4 5 6
2 3 4 5 6 7
3 4 5 6 7 8
…………………
6 7 8 9 10 11

Найти произведение элементов массива. Вывести сам массив и произведение элементов.

program laba;
var a:array [1..15,1..10] of real;
      i,j:integer;
      p:real;
begin  p:=1;
       for i:=1 to 15 do
          for j:=1 to 10 do  begin
             a[i,j]:=random(16)-5;
             p:=p*a[i,j];
             end;
         for i:=1 to 15 do begin 
           writeln;
           for j:=1 to 10 do
              write(a[i,j]:4:1);
         End;
         Writeln(‘произведение=’,p);
         Readln;
End.

Найти сумму отрицательных элементов массива. Вывести сам массив и сумму.

program laba;
var a:array [1..15,1..10] of real;
    i,j:integer;
    s:real;
begin
   s:=0;
   for i:=1 to 15 do
     for j:=1 to 10 do  begin
        a[i,j]:=random(16)-5;
        if a[i,j]<0 then s:=s+a[i,j];
    end;
    for i:=1 to 15 do begin 
      writeln;
        for j:=1 to 10 do
          write(a[i,j]:4:1);
    End;
    Writeln(‘summa=’,s);
     Readln;
End.

Найти сумму элементов нечетных строк массива. Вывести сам массив и сумму.

program laba;
var a:array [1..15,1..10] of real;
    i,j:integer;
    s:real;
begin
   s:=0;
   for i:=1 to 15 do
     for j:=1 to 10 do  begin
        a[i,j]:=random(16)-5;
        if     i mod 2<>0      then s:=s+a[i,j];
    end;
    for i:=1 to 15 do begin 
      writeln;
        for j:=1 to 10 do
          write(a[i,j]:4:1);
    End;
    Writeln(‘summa=’,s);
     Readln;
End.

Минимальный элемент:

program laba;
var a:array [1..15,1..10] of real;
     i,j:integer;
    min:real;
begin
  
       for i:=1 to 15 do
        writeln;
            for j:=1 to 10 do  begin
              a[i,j]:=random(16)-5;
              write(a[i,j]:4:1);
            end;
         min:=1e30;
         for i:=1 to 15 do 
           for j:=1 to 10 do
              if a[i,j]<min then min:=a[i,j];
          Writeln(‘min element=’,min);
 
        Readln;
End.

Похожие записи/страницы:

Leave a Comment

5 + 3 =