Линейные массивы

[JonnyKnoxville]

Помогите с решением задач
1. Найти и выдать на печать все элементы линейного массива целых чисел c(n), которые больше заданного числа t
2. В линейном массиве целых чисел b(50) заменить все элементы, кратные введенному числу d, на их квадраты
3. Удалить наименьший элемент массива вещественных чисел z(n)

[RUSt88]

сделаю дешево в кратчайшие сроки, обращайтесь

[JonnyKnoxville]

никто не может помочь?бесплатно, о4 надо

[ROMA2PVT]

http://www.cyberforum.ru/pascal/thread120078.html
А эт не вам случайно делали.

[JonnyKnoxville]

мне но я незнаю что дальше с этим делать

[ROMA2PVT]

Ладно с первыми двумя помогу.

[ROMA2PVT]

var a:array[1..20]of integer;
  k,i,n,j,t:integer;
  begin
  write('Введите количество элементов: ');
  readln(n);
  writeln('Исходный массив: ');
  randomize;
  for i:=1 to n do
  begin
  a[i]:=random(12);
  write(a[i],' ');
  end;
  writeln;
  write('Введите число t: ');
  Readln(t);
  writeln('Результирующий массив: ');
  for i:=1 to n do
  if a[i]>t then
  Write(a[i],'  ');
  end.

Вот первая.

[ROMA2PVT]

var a:array[1..20]of integer;
  k,i,n,j,t,d:integer;
  begin
  write('Введите количество элементов: ');
  readln(n);
  writeln('Исходный массив: ');
  randomize;
  for i:=1 to n do
  begin
  a[i]:=random(12);
  write(a[i],' ');
  end;
  writeln;
  write('Введите число d: ');
  Readln(d);
  writeln('Результирующий массив: ');
  for i:=1 to n do
  begin
  if a[i] mod d=0 then
  a[i]:=sqr(a[i]);
  end;
  for i:=1 to n do
  Write(a[i],'  ');
  end.

Вторая.

[JonnyKnoxville]

Огромное спасибо!

[ROMA2PVT]

uses crt;
var
z:array[1..100]of real;
i,n:integer;
min:real;
begin
clrscr;
write('Введите количество элементов: ');
readln(n);
randomize;
for i:=1 to n do
begin
z[i]:=random(12)-5;
write(z[i]:0:2,' ');
end;
writeln;
min:=z[1];
for i:=1 to n do
begin
if z[i]<min then
min:=z[i];
end;
writeln;
writeln('Результирующий массив: ');
for i:=1 to n do
if (z[i]<>min) then
write(z[i]:0:2,' ');
readkey;
end.

Ну и вот третья вам в подарок.