Pascal

10, как так? это основы программирования!

Спасибо за помошь, еще бы 2 и 5 задачку)

EZHIK (Сегодня / 18:56)
Спасибо за помошь, еще бы 2 и 5 задачку)

Магарыч
Наименьший элемент в интервале найти? Интервал так же с клавиатуры вводится?

Ну да, интервал абсолютно любой =)
P.S Мне еще до 150 КЦ, как до китая раком =(

5. СП подсчёта чисел наименьших по модулю элементов массива.

program visavi; 
uses CRT; 
var 
q,c,d,n,i,j:integer; 
A:array [1..100] of integer; 
B:array [1..100] of integer; 
begin 
clrscr; 
write('Введите количество элементов в массиве: '); 
readln(n); 
for i:=1 to n do 
  begin 
    writeln('Введите ',i,'-й элемент массива: '); 
    readln(A[i]); 
  end; 
write('Введите C: '); 
readln(c); 
write('Введите D: '); 
readln(d); 
j:=0; 
for i:=1 to n do 
  begin 
    if (A[i]>=C) and (A[i]<=D) then 
      begin 
        j:=j+1; 
        B[j]:=A[i]; 
      end; 
    end; 
writeln; 
writeln('Массив элементов из интервала CD:'); 
for i:=1 to j do 
  begin 
    write(B[i], ', '); 
  end; 
writeln;
q:=abs(B[1]); 
for i:=2 to j do 
    begin 
        if abs(B[i])<q then q:=B[i]; 
    end; 
writeln('Наименьшее значение по модулю в интевале CD: ',q); 
readln; 
end.

Дабы не создавать отдельную тему, спрошу здесь.
Помогите написать задачи, не очень дружу с паскалем.
1. составить программу нахождения суммы чисел от 1 до 10.
2. создать массив от n случайного числа, подсчитать их среднее арифметическое max и min значение.

1 решил так:

program pr;
var
      s, n : integer;      
begin      
      s:=0;
      for n:=1 to 10 do s:=s+n;
      writeln(s);      
end.

правильно?

Срочно нужно, прошу помощи, особенно со второй задачей.

program tegos;
var s,n,i:integer;
min, max, sum, r: real;
mas:array [100] of integer;
begin
randomize;
n:=random (100);
for i:=1 to n do
mas[i]:=random(99);
min:=mas[1]; max:=mas[1];
for i:=2 to n do
begin
if  min>mas[i] then min:=mas[i];
if max<mas[i] then max:=mas[i];
end;
s:=0;
for i:=1 to n do 
s:=s+mas[i];
r:=s/n;
write ('Min ->',min);
write ('Max ->', max);
write ('Avarange -> ', r);
end.

Добавлено через 01:43 сек.
П.С. На Паскале давно ничего не писал.
+ писал по памяти и с тлфна.

Добавлено через 04:10 сек.
Эмм, ну еще было бы хорошо вывести данный массив.
Ну думаю с этим справишься сам.

Благодарю за помощь