Контрольная работа по Pascal.Решение задач

[ai\ekcah^p]

Третья задачка

program zad3;
uses crt;
type massiv=array[1..100] of integer;
var
mas:massiv;
i,n:integer;
procedure poisk_max(a:massiv;kol:integer);
var
i,max,num:integer;
begin
max:=a[1];
 for i:=1 to kol do
 begin
  if a[i]>=max then
  begin
  max:=a[i];
  num:=i;
  end;
 end;
 textcolor(10);
 writeln;
 writeln('максимальный элемент  -> ',max);
 writeln('порядковый номер      -> ',num);
end;
begin
 clrscr;
 randomize;
 write('Введите колличество элементов -> ');readln(n);
 writeln;
 for i:=1 to n do
 begin
  mas[i]:=random(101)-50;
  textcolor(14);
  write(mas[i]:4);
 end;
 writeln;
 poisk_max(mas,n);
 readln;
end.

[Laplas]

Цитата:IT-man пытался б
ы заработать на чём нибудь серьёзном, а не на таких програмках.

А я количеством возьму)))
Цитата:А то, что IT-man пытается на лентяях и неучах заработать копеечку, это дело его совести, и, имхо, не Вам его судить!

А совесть то тут при чем?


правильно,))))каждый труд должен быть оплачен, альтруисты вымерли)))) еще древние греки говорили: "чем проще, тем дороже"