Задания по массивам!

[Akkerman]

Много заданий задали на завтра, мне сложно не понимаю как их написать, очень прошу помощи! Массивы типовые задачи.

1 Дано:
N - Целое семизначное число, вводится пользователем.
Проверка на семизначность обязательна!
Выполнить:
Записать в массив A[i] цифры этого числа.

2 Дано:
A[i] – массив целых чисел, состоящий из 5 элементов.
Элементы массива вводятся пользователем из диапазона [-10,10].
Проверка ввода обязательна!
Выполнить:
Вывести на экран сумму неположительных и произведение неотрицательных элементов.

3 Дано:
A[i] – массив целых чисел, состоящий из 5 элементов.
Элементы массива вводятся пользователем.
Выполнить:
Вывести на экран среднее арифметическое элементов.

4 Дано:
A[i] - массив вещественных чисел, состоящий из элементов, выбранных случайным образом из диапазона [0;5] (в вещественном числе 3 знака после запятой).
Выполнить:
B[i] - Отсортировать массив A[i] по возрастанию.
C[i] - Отсортировать массив A[i] по убыванию.

5 Дано 10 целых чисел.
Выполнить:
Вычислить разницу между максимальным и минимальным из них


Вот их нужно написать на Pascal ! Срочно. Буду очень благодарен.
с 7-го Ноября буду ходить на платные консультации по Информатике, надеюсь хоть что-нибудь пойму...

[Stilet]

Совсэ-совсэм чтол не могещь?
Даже ввод массивов сделать ни-ни?

[Akkerman]

ввод массивов то смогу, а вот мыслить на уровне создания программ не могу, видимо не создан я для точных наук! Первую получилось сделать, а остальные совсем не даются вовсе

первую программу*

[Stilet]

ввод массивов то смогу

Вотъ с ентого давай и начнем )

[Akkerman]

давайте...

Мне срочно нужно сделать эти задания, помогите пожалуйста!

[Stilet]

давайте...

Все ясно с тобой. Лентяй. Даже попытаться самостоятельно не желаешь.
Я от тебя ждал попыток, а раз так...
Вот тебе первая задача:

var n:integer; a:array[1..70] of byte;c:integer;
begin
 readln(n); c:=1;
 while n>0 do begin a[c]=n mod 10; inc(c); n:=n div 10; end;
 if c<>7 then write('Забей на программирование')
 else for c:=7 downto 1 do writeln(a[c]);
 readln;
end.

Удачных ЭГЕ.

[Akkerman]

Я в плане того что

давайте...

я умею вводить и выводить массив дальше что?
Первую я смог написать вот она -

Program z12_22ch;
var     a:array[1..7] of integer;
        i:integer;
        n:longint;
begin
writeln('Введите целое семизначное число');
readln(n);
  if (n>999999) and (n<10000000) then
     begin
      for i:=1 to 7 do
       begin
        a[i]:=n mod 10;
          n:=n div 10;
          write(a[i]:5);
       end;
     end
  else
writeln('Ваше число в виде элементов массива');
readln;
  end.

Второе я пропустил, потому что нет идей, а третье по-моему вышло -

USES CRT;
VAR A:array[1..5] of integer;
i,x:integer;
y:real;

BEGIN
CLRSCR;
Randomize;

for i:=1 to 5 do
begin
Writeln('Введите число: ');
Read(x);
A[i]:=x;
end;

x:=0;

for i:=1 to 5 do
x:=x+A[i];

y:=x/5;

Writeln('Среднее арифметическое число = ',y:2:2);
READLN;
READLN;
END.

Как же у меня долго все получается делать...Очень нужна ваша помощь...

Я самые простые смог сделать!

[Mad_Cat]

5)

var a,i,max,min:integer;
begin
readln(min);
max:=min;
for i:=1 to 9 do
begin
readln(a);
if a> max then max:=a;
if a<min then min:=a;
end;
writeln(max-min);
end.

[Dvoishnik]

2 задание

const
    m = 5;
 
var
    arr: array[1..m] of integer;
    i:byte;
    pro, sum:integer;
begin
 for i:=1 to m do
	repeat 
		writeLn('Введите элемент массива №:',i);
		readln(arr[i]);
	until (arr[i] < 11) and (arr[i] > -11 );

 writeLn;writeLn;
 writeLn('исходный массив');
 for i:=1 to m do
	write(arr[i]:4);
 
 sum:=0;
 pro:=1;
 for i:=1 to m do
	if arr[i] <= 0  
		then sum:=sum+arr[i]
			else pro:=pro*arr[i];
			
 writeLn;
 writeLn;
 Writeln('Сумма: ',sum);	
 Writeln('Произведение: ',pro);	
 readln;
end.

[Akkerman]

Спасибо! Помогли! но поздновато...