Найти макимальный элемент в массиве чисел от 1 до 100

17.12.2012, 19:53. **Показов** 1227. **Ответов** 2

Author24 — интернет-сервис помощи студентам

нужно написать программу на языке Paskal которая будет искать макимальное число в массиве чисел от 1 до 100 которые будут задаваться рандомно. числа трехзначные

@Taftis · 18.12.2012, 19:58

массив от 1 до 100 и все числа трех значные)) всмысле все по 100?))

Pascal

program sxuya_trehznachnie;
uses crt;
var n,m,i,j,min,max:integer;
a:array[1..5,1..5] of integer;
procedure MDA;
begin
 Randomize;
  write('ââåäèòå êîë-âî ñòðîê='); readln (n);
  write('ââåäèòå êîë-âî ñòîëáöîâ=');  readln (m);
  write('ââåäèòå îò êàêîãî ÷èñëà ãåíåðèðîâàòü=');  readln (min);
  write('ââåäèòå äî êàêîãî ÷èñëà ãåíåðèðîâàòü=');  readln (max);
  min:=-min;
      For i:=1 to n do begin
        For j:=1 to m do begin
        a[i,j]:=random(min+max+1)-min;
        write(a[i,j]:3);
end;
writeln;
end;
end;
procedure poisk;
begin
min:=101;
For i:=1 to n do begin
        For j:=1 to m do begin
        if A[i,j]<min then min:=A[i,j];
end;
end;
write('minimum=');
write(min);
end;
 
 
begin
MDA;
poisk;
end.

@Seiken · 18.12.2012, 20:07

неробит тока что запустил на паскал абс

Добавлено через 2 минуты
сори каюсь недосмотрел)

Добавлено через 40 секунд
тоже надо такую програму тока чтобы просто максимально значение искала

Алёна97
		1
	Найти макимальный элемент в массиве чисел от 1 до 100 17.12.2012, 19:53. Показов 1227. Ответов 2 Метки нет (Все метки) нужно написать программу на языке Paskal которая будет искать макимальное число в массиве чисел от 1 до 100 которые будут задаваться рандомно. числа трехзначные

@Seiken 0 / 0 / 0 Регистрация: 16.12.2012 Сообщений: 11
	18.12.2012, 20:07	3
	неробит тока что запустил на паскал абс Добавлено через 2 минуты сори каюсь недосмотрел) Добавлено через 40 секунд тоже надо такую програму тока чтобы просто максимально значение искала 0

Опции темы

Найти макимальный элемент в массиве чисел от 1 до 100

Решение