Массивы!

[JulLy]

Кто может помочь,мальчики,не понимаю вообще массивы,а сессию надо закрыть пожалуйста помогите!
1. Ввести 10 значений в массив. Затем, распечатать его значения:
а. В одну строку, через двоеточие
b. Номер ячейки зеленым и само число мигающим белым.
с. Нечетные по номеру элементы печатать синим цветом, четные голубым.
d. Через два числа, начиная с последнего.
2. Ввести массив из 9 целых чисел и распечатать все его отрицательные элементы.
3. Производится сбор винограда двенадцатью разными рабочими. Рабочие делятся на две
группы по 6-ть человек. Количество собранного винограда за день (в килограммах) заносится
в массив данных: первые 6-ть ячеек - результаты первой группы, вторые 6-ть - второй.
Посчитать:
а. Количество собранного за день винограда работниками 1 -й и 2-й групп.
Ь. Среднее количество собранного винограда на 1 группу.
с. Напечать номер, количество собранного винограда и группу для тех работников, у
которых количество собранного винограда превышает норму (норма N вводится
заранее).
4. Заполнить массив из 17 элементов целыми числами от 26 до 10 (т. е. в 1-ю ячейку - 26, во 2-ю
- 25, и т. д.). Вывести на экран все элементы через пробел.
5. Заполнить массив из 10-ти значений четными числами, начиная с -4.
6. Дан массив чисел. Заменить отрицательные элементы массива их модулями.
7. В массив вводятся результаты замеров роста учеников группы из 8-ми человек. Распечатать
номер ученика и его рост для самого низкого ученика.
8. Дан массив чисел. Поменять местами наибольший и наименьший элемент.
9. Ввести массив результатов бегунов (20 человек) на дистанции 100м. Вывести на экран 7
худших результатов.

Спасибо вам :******************************

[Stepler]

Готов выполнить за небольшое вознаграждение.
Аська три92-17два-60два, стучись обсудим.

[profi]

4. Заполнить массив из 17 элементов целыми числами от 26 до 10 (т. е. в 1-ю ячейку - 26, во 2-ю
- 25, и т. д.). Вывести на экран все элементы через пробел.

uses crt;
var
mas:array[1..17] of integer;
i,n:integer;
begin clrscr;
n=26;
for i:=1 to 17 do
begin
mas[i]:=n;
dec(n);
end;
for i:=1 to 17 do
write(mas[i],' ');
readln;
end.

6. Дан массив чисел. Заменить отрицательные элементы массива их модулями.

uses crt;
var
mas:array[1..10] of integer;
i,n:integer;
begin clrscr;
for i:=1 to 10 do
begin
read('mas[',i,']=');
writeln(mas[i]);
end;
writeln;
for i:=1 to 10 do
if mas[i]<0 then
mas[i]:=abs(mas[i]);
for i:=1 to 10 do
write(mas[i],' ');
readln;
end.

Дальше лень.

[JulLy]

Профи,смотри лс!

[sheka]

могу сделать. очень дешево. ася 255507394.

[Anatole]

1. Ввести 10 значений в массив. Затем, распечатать его значения:

Примерно так

Program  OutMass;
uses crt;
const n = 10;
var
 a : array [1..n] of integer;
 i : byte;
 begin
  randomize;
  for i := 1 to n  do a[i] := random(100);
  WriteLn('OUT');
  for i :=1 to n do write(a[i]:1,':');
  writeln;
  for i :=1 to n do
  begin
  TextAttr := $02;
   write(i:1,' ');
  TextAttr := $8F;
  write(a[i]:1,' ');
  end;
  writeln;
  for i :=1 to n do
  begin
  if odd(i) then TextAttr := $01 else TextAttr := $09;
  write(a[i]:1,' ');
  end;
  TextAttr := $0F;
  writeln;
  for i :=n div 2  downto 1 do write(a[i*2]:1,' ');
  writeln;
 end.

Мигание символа в консоли может и не быть, зависит от настройки системы. И если пробелы лишние, то уберёте самостоятельно