Решение задачи в паскале

[Arigato]

Arigato, согласен... Всё познаётся со временем

Если же Вы будете просить готовое решение, то и время не поможет. Нужно добиваться того, что бы самому решать, для этого полно книг (как печатных, так и электронных).

[-HunteR-]

Эх, мне бы такой задачник.(Закрепил бы навыки)

program first;
uses crt;
var max,i,n:integer;
a:array[1..100] of integer;
begin
clrscr;
randomize;
max:=0;
write('Введите количество элементов массива');
read(n);
for i:= 1 to n do
begin
a[i]:=random(100)-random(100);
end;
for i:=1 to n do
begin
if a[i]>max then
begin
max:=a[i];
end;
end;
for i:= 1 to n do
begin
if a[i]<max then
begin
a[i]:=0;
end;
end;
readkey;

[DM_bite]

Насчет второй задачи, а может все намного проще?

  var A:array [0..100] of integer;
      n,k,x: integer;
begin
   k:=0;
   WriteLn('Vvedite chislo');
   Read(x);
   for n:= 0 to 100 do
    begin
     WriteLn('Vvedite element massiva');
      ReadLn(A[n]);
       if A[n]<x then k:= k+1;
    end;
     WriteLn('Kol-vo elementov menshih '+IntToStr(x)+' = '+IntToStr(k));
     ReadLn;
end.

Хотя может и я что-то путаю...
P.S: Здесь ввод элементов массива осуществляется вручную...

[BarT(48rus)]

а может кто и мою посмотрит???а то я учусь в 2 местах, и вот в политехе дали задачу, а в технаре не один препод не знает как её решать((((((что то все посылают, а из-за этой задичи не ставят зачет(((
http://programmersforum.ru/showthread.php?t=38254

[Лана777]

ПОЖАЛУЙСТА помогите с задачами-мне завтра уже их сдать нужно.

Задача 1
Даны массивы
ZP1,ZP2,...ZPn-список запчастей,необходимых станции технического обслуживания автомобилей (СТОА)
К1,К2,....,Кn-количество запчастей,необходимых СТОА
х1,х2,...,хm-список поставляемых запчастей
I1,I2,...,Im-количество поставляемых запчастей.
Напечатать список недополученных запчастей с указанием % недополучения (M<=N)

Задача 2
Определить номер строки с минимальным количеством нулевых элементов и сложить элементы этой строки с соответствующими элементами всех нечетных строк

[DM_bite]

а может кто и мою посмотрит???а то я учусь в 2 местах, и вот в политехе дали задачу, а в технаре не один препод не знает как её решать((((((что то все посылают, а из-за этой задичи не ставят зачет(((
http://programmersforum.ru/showthread.php?t=38254

[offtop]А зачем в другую тему лезть? Один вопрос - одна тема... Иначе - оффтоп по полной программе... [/offtop]

[Лана777]

DM_bite можешь помочь девушке?=)