Обработка одномерных массивов

[Катя369919407]

1.Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел. Получите новый массив, каждый элемент которого равен квадрату соот¬ветствующего элемента исходного массива. В получен¬
ном массиве определите, на сколько максимальный эле¬мент исходного массива отличается от минимального элемента нового массива. Выведите на экран исходные и полученные результаты.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите разность наибольшего и на¬именьшего элементов. Выведите на экран полученный массив и полученную разность.
3. Составьте блок-схему и напишите программу.
Даны два массива: А (10) и B(10). Сформируйте массив С(10), предварительно определив его длину, включая из массивов А и В только четные по номеру элементы. Вы¬
ведите на экран массивы А(10), В(10) и С(10).

[Mandrivnyk]

В аську. С/С++, Паскаль.
Быстро и недорого.

[turok7770]

1 задача

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
    a:array[1..15] of Integer;
    b:array[1..15] of Integer;
    i,min,max,otb:integer;

begin
  Randomize;
  for i:=1 to 15 do
   begin
     a[i]:=Random(100);
   end;

  for i:=1 to 15 do
   begin
     Write('a[',i,']=',a[i]);
     writeln;
   end;
   Writeln;
  for i:=1 to 15 do
   begin
     b[i]:=a[i]*a[i];
   end;

   for i:=1 to 15 do
   begin
     Write('b[',i,']=',b[i]);
     Writeln;
   end;

  min:=High(integer);
  max:=Low(Integer);
   Writeln;
  for i:=1 to 15 do
    begin
      if a[i]>Max then
        max:=a[i];
    end;
   write('max=',max);
   Writeln;
  for i:=1 to 15 do
    begin
      if b[i]<min then
        min:=b[i];
    end;
   write('min=',min);
   writeln;
   otb:=max-min;
   Writeln(otb);

 Readln;
end.

В принципе могу решить другие задачи за 50руб. на телефон. Если хочешь сообщи мне