21.04.2008, 19:50
общий
это ответ
Здравствуйте, Danilka!
Задачи №1, 2, 3 в приложении
Удачи!!!
Приложение:
{№1}var a : array [1..10] of integer; //Массив //sum - сумма четных элементов, kratfive - кол-во элементов кратных пяти, i - счетчик для цикла For sum, kratfive, i : integer;begin sum:=0; //обнуляем сумму, если этого не сделать, то переменная будет содержать мусор и прогорамма выдаст не верный рез-тат kratfive:=0; randomize; //включаем генератор случайных чисел for i:=1 to 10 do //перебираем весь массив begin a[i]:=random(14)-7; //присваиваем тек. эл. случайное число из диапозона [-7; 6] write(a[i], ‘ ‘); //выводим через пробел end; for i:=1 to 10 do //для каждого элемента массива begin if not Odd(i) then //если тек. индекс четный, то прибавляем к сумме sum:=sum+a[i]; if (a[i] mod 5) = 0 then //если тек. эл. делится на 5 без остатка, то увеличиваем счетчик на 1 inc(KratFive); end; WriteLn; //начинаем новую строку Write(‘Сумма = ‘, sum, ‘ Кол-во кр. 5 = ‘, kratfive); //выводим рез-ты ReadLn;end.{№2}const N=20; //размер массивовvar a : array [1..N] of integer; //исходный массив New : array [1..N] of integer; //конечный массив i : integer; //счетчик для цикла Forbegin randomize; Write(‘Исходный массив: ‘); for i:=1 to N do //заполняем массив begin a[i]:=random(30)-15; write(a[i], ‘ ‘); end; WriteLn; Write(‘Результат работы: ‘); for i:=1 to N do //заполняем новый массив begin new[i]:=a[i]*i; Write(New[i], ‘ ‘); end; readln;end.{№3}const N=20;var a : array [0..N] of integer; min, max, minx, maxx, i, st, en : integer;begin randomize; Write(‘Исходный массив: ‘); for i:=1 to N do //заполняем массив begin a[i]:=random(30)-15; write(a[i], ‘ ‘); end; WriteLn; min:=a[1]; max:=min; minx:=1; maxx:=minx; for i:= 1 to N do begin if a[i]>max then begin max:=a[i]; maxx:=i; end else if a[i]<min then begin min:=a[i]; minx:=i; end; end; if minx<maxx then begin en:=maxx; st:=minx; end else begin st:=maxx; en:=minx; end; WriteLn; for i:=st+1 to en-1 do write(a[i], ‘ ‘); readln;end.