Pascal, задача на массивы.

[demos261188]

Нужно решить две задачки))))
#
Вычислить среднее геометрическое положительных элементов массива
a[1],a[2],...,a[40], имеющих четные индексы. Если таких элементов
нет, то вывести на печать признак 0.

#
Hайти наибольшие элементы каждой строки матрицы X(10*20) и записать их в массив Y.

[VIK_aka_TOR]

по первому... создаешь переменную (допустим srgm).. присваиваешь ей 1.... объявляешь переменную index = 0; .. в индекс будет заносится количество положительных переменных масива...

for i:=1 to n do
if (a[i] > 0) then
begin
srgm:= srgm*a[i];
inc(index);
end;

и в конце проверяешь... если индекс = 0, то выдаем в ответе 0, иначе берем power(srgm,1/index); корень нужной степени от srgm
по второму...

создаешь тот же массив y размерностью в количество строк x
приравниваешь элементы массива y к первым элементам (можно любым) строк x и затем перебираешь каждую строку массива х.

for i:=1 to 10 do
for j:=1 to 20 do
if (y[i] < a[i,j]) then
y[i]:=a[i,j];

примерно так....

[demos261188]

Я вот первую написал, можешь проверить?
program Dekio;
const
n = 40;
var
arr: array [1..n] of Integer;
i, pr, cnt: Integer;
begin
pr:=1; cnt:=0;
writeln('Enter ',n,' numbers:');
for i:=1 to n do
begin
readln(arr[i]);
if (arr[i]>0) and not odd(i) then
begin
inc(cnt);
pr:=pr*arr[i];
end;
end;
if cnt = 0 then
writeln('Result: ',cnt)
else
writeln('Result: ',exp(ln(pr)/cnt):5:2);
end.

А по второй можно подробней, весь тест проги??? Пожалуйста, ничего не успеваю, буду благодарен!

[VIK_aka_TOR]

ну... по мне так вот так правильнее

program Dekio;
const
n = 40;
var
arr: array [1..n] of Integer;
i, pr, cnt: Integer;
begin
pr:=1; cnt:=0;
writeln('Enter ',n,' numbers:');
for i:=1 to n do
begin
readln(arr[i]);
if (arr[i]<0) then
begin
inc(cnt);
pr:=pr*arr[i];
end;
end;
if cnt = 0 then
writeln('Result: ',cnt)
else
writeln('Result: ',power(pr,1/cnt):5:2);
end.

if (arr[i]>0) and not odd(i) then not odd(i) для чего? вторую... счас напишем...

P.S. для вставки кода есть специальный значок тег. решеточкой обозначен

[VIK_aka_TOR]

что то вроде этого...

uses
crt;
var
a:array[1..10,1..20] of integer;
y:array[1..10] of integer;
n,m,i,j,max,index:integer;
begin
n:=4;
m:=4;
for i:=1 to n do // ввдим значения матрицы
for j:=1 to m do
begin
Write('a[',i,',',j,']=');
read(a[i,j]); // или же перед write поставить строку:  a[i,j]:=random(20);  для рандомного ввода программно, не с клавы
end;          // закончили вводить значения матрицы

for i:=1 to n do    // вывод введенной матрицы
begin
    for j:=1 to m do
    write(a[i,j]:3);
    writeln();
end;


for i:=1 to n do  // ставим в y первые элементы строк массива a
y[i]:= a[i,1];

for i:=1 to n do  // если находим элемент побольше чем y[i] в строке а[i] то ставим его в y[i]
for j:=1 to m do
if (a[i,j] > y[i]) then
y[i] := a[i,j];

writeln();
for i:=1 to n do
writeln('y[',i,']=',y[i]);
end.

[demos261188]

Слушай, а давай я тебе задачи дам по Паскалю, если поможешь, перекину денег на веб мани? Моё мыло demos261188@li.ru Жду отве на мыло))

[VIK_aka_TOR]

рисуй в аську... и на мыло тож скинул...