Школьные задачи на обработку массивов!

[MCZajtsev]

Хорошо)подожду)

[MCZajtsev]

Согласен что это справедливо, я готов платить если цена человеческая, т.к. задачки для понимающих очень легкие!

[Mixell]

for i:=1 to 10 n do
begin
writeln 'vvedite (a[',i,']=');
readln (a[i]);
end;
min:=A[i];
for i:=2 to 10 do
if (a[i]>0)
then
if(a[i]<min)
then min:=a[i];
writeln ('min'=,min);
readln;
end.

[Mixell]

Сообщение от Mixell

for i:=1 to 10 n do
begin
writeln 'vvedite (a[',i,']=');
readln (a[i]);
end;
min:=A[i];
for i:=2 to 10 do
if (a[i]<0)
then
if(a[i]<min)
then min:=a[i];
writeln ('min'=,min);
readln;
end.

Это 2-я задача третью думаю сделаеш аналогично только проверяеш a[i]>0 и больше ли оно максимального,тогда заносиш в максимальное)ща другие попробую)

[MCZajtsev]

Спасибо, буду тебе очень благодарен!

[Leshii]

min:=A[i];
...
if(a[i]<min)
then min:=a[i];

Что-то тут явно не то?)

[Mixell]

Сообщение от Mixell

Это 2-я задача третью думаю сделаеш аналогично только проверяеш a[i]>0 и больше ли оно максимального,тогда заносиш в максимальное)ща другие попробую)

вот тутfor i:=1 to 10 n do) после десяятки n убери)

[Mixell]

Сообщение от Leshii

min:=A[i];
...
if(a[i]<min)
then min:=a[i];

Что-то тут явно не то?)

Что именно? Проверяем число меньше оно минимального,если да то заносим его в минимальное)

[Arigato]

Сообщение от Mixell

А кому как и сколько платить?

В разделе Фриланса создается тема, далее потенциальные исполнители уже сами будут обращаться, предлагая свою цену.

[Leshii]

2. Найти мин элемент среди положительных элементов массива А[1..10].

Ну какбэ среди положительных.