задачи с элементами Опции

[Rikki_Irena]

1) найти сумму элементов с четными индексами одномерного массива, размер произвольный, элементы вводить с клавиатуры

2)заполнить массив произвольн.размера случайным образом и найти в нем минимальный элемент

помогите составить программы пожалуйстаа ^^

[Гость]

Ну вы уточните, что подразумевается под произвольным размером одномерного массива? Например массив произвольный но меньше какой то величины,или все таки динамический?Тут не телепаты и не знают,что вы изучали,а что еще нет.

[Rikki_Irena]

ну например [1..20]

[Krjuger]

Ну тогда как то так

program first;
uses crt;
 const max=20;
var
 i: integer;
 arr: array[1..max] of real;
 size: integer;
 ans:char;
 Sum:real;
begin
Sum:=0;
repeat
 write('Vvedite razmer massiva: ');
 readln(size);
 if size>20 then
  begin
    writeln('Vi previsili maksimalno dopustimiy razmer');
    writeln('Hotite povtorit* vvod?(y/n)');
    ans:=readkey;
    if ans='n' then
      exit;
  end;
until ans<>'y';

for i:=1 to size do
 readln(arr[i]);

for i:=1 to size div 2 do
  begin
   Sum:=Sum+arr[2*i];
  end;
writeln('Summa=',Sum:3:3);
readln;
end. 

[klem4]

Сумму можно подсчитывать уже во время считывания элементов массива, второй цикл лишний

[Гость]

Ну тут про это ничего не говорилось,а так да, можно, но это было первое,что пришло мне в голову,об оптимизации не думал,все равно ТС молчит.