Нужно решить 6 задачек Pascal

[muzhik65]

Вот задачи которые нужно решить :
1) Найти все элементы массива целых чисел B(n),удовлетворяющие условию:остаток от деления на 5 равен 3. Массив заполняется вводом чисел с клавиатуры.

2)Найти сумму наибольшего и наименьшего элементов массива вещественных чисел Z(n). Массив заполняется случайным образом.

3)Заполнить массив двадцатью числами по правилу :F(i):=a в 3 степени +2*a*i

4)Массив целых чисел С(n) ,размер массива и заданное число D вводятся с клавиатуры. Заменить все элементы ,большие 10 ,на число D.

5) В линейный массив вещественных чисел на место максимального элемента вставить минимальный элемент. Массив заполняется с клавиатуры 10-ю числами.

6)Удалить 10-й элемент массива целых чисел. Массив формируется случайным образом числами из интервала [-100;100]

[Desha]

Подскажи числа для проверки 1й задачи

[muzhik65]

может быть любые подойдут самые маленькие? я не знаю(((((((((((((((

[DM_bite]

1) Найти все элементы массива целых чисел B(n),удовлетворяющие условию:остаток от деления на 5 равен 3. Массив заполняется вводом чисел с клавиатуры.

program Xddd;
const n=10;
var b:array [1..n] of integer;
i: integer;
begin
for i:= 1 to n do
 begin
 ReadLn(b[i]);
 if b[i] mod 5 = 3 then WriteLn(b[i]);
 end;
 ReadLn;
end.

[Desha]

1-ая задача

uses crt;
var
   a,b:array[1..100] of integer;
   i:byte;
   n:integer;

begin
   clrscr;
write('Введите количество элементов в массиве-->');
readln(n);
writeln('Введите элементы массива:');
writeln('После кажого ввода нажимайте <enter>');
for i:=1 to n do
begin
readln(a[i]);
b[i]:=a[i] mod 5;
end;
writeln('Элементы удовлетворяющие условию:');
for i:=1 to n do
   if  b[i]=3 then write(a[i],' ');
End.

[Desha]

2-ая задача

uses crt;
var
   a:array[1..100] of real;
   i:byte;
   n,min,max:integer;
   k,sum:real;
   
begin
   clrscr;
   randomize;
   write('Введите количество элементов в массиве-->');
readln(n);
k:=0.5;                   //дробная часть. если она равна напр. 0,3 то все числа будут с этой частью
for i:=1 to n do
a[i]:=random(40)-k;
for i:=1 to n do
write(a[i],'   ');
min:=1;
max:=1;
for i:=2 to n do
begin
if a[i]<a[min] then min:=i;
if a[i]>a[max] then max:=i;
end;
sum:=a[min]+a[max];
writeln;
writeln('Ответ: ',sum);
End.

[DM_bite]

4)Массив целых чисел С(n) ,размер массива и заданное число D вводятся с клавиатуры. Заменить все элементы ,большие 10 ,на число D.

Program Xdd;
var c:array [1..100] of integer;
n,i,D: integer;
begin
ReadLn(n);
ReadLn(D);
for i:= 1 to n do
 begin
 ReadLn(c[i]);
 if c[i]>10 then c[i]:= D;
 WriteLn(c[i]);
 end;
 ReadLN;
end.

3)Заполнить массив двадцатью числами по правилу :F(i):=a в 3 степени +2*a*i

Program Xddd;
const n=20;
var F:array [1..n] of integer;
a,i: integer;
begin 
 ReadLn(a);
for i:= 1 to n do
 begin
 f[i]:= sqr(a)*a+2*a*i;
 WriteLn(f[i]);
 end;
 ReadLn;
end.

[Desha]

5-ая задача

uses crt;
var
   a:array[1..100] of real;
   i:byte;
   l:real;
   n,min,max:integer;

   
begin
   clrscr;
   randomize;
   n:=10;
for i:=1 to n do
a[i]:=random(40)-10;
for i:=1 to n do
write(a[i],'   ');
min:=1;
max:=1;
for i:=2 to n do
begin
if a[i]<a[min] then min:=i;
if a[i]>a[max] then max:=i;
end;
writeln;
writeln('Макс ',a[max]);
writeln('Мин ',a[min]);
l:=a[max];
a[max]:=a[min];
a[min]:=l;
for i:=1 to n do
write(a[i],'   ');
writeln;
End.

[Chudo4258]

var n,i:integer;
    A:array [1..100] of integer;
begin
write('n>10,  n='); readln(n);
for i:=1 to n do
begin
 A[i]:=-100+random(201);
 write(A[i],'   ');
end;
writeln;
for i:=10 to n-1 do
 A[i]:=A[i+1];

for i:=1 to n-1 do
 write(A[i],'   ');
readln
end.

[Chudo4258]

http://programmersforum.ru/attachmen...1&d=1243158976