Версия для печати темы

Автор: Rikki_Irena 3.02.2012 19:53

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

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

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

Автор: Гость 4.02.2012 2:40

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

Автор: Rikki_Irena 4.02.2012 2:47

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

Автор: Krjuger 4.02.2012 19:38

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

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 5.02.2012 14:57

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

Автор: Гость 5.02.2012 17:38

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