Сформировать двумерный массив [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.