Определить разницу между самым высоким и самым низким учеником в класе . Организовать ввод значений с клавиатуры.

@MrRap · Регистрация: 22.07.2011

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

Можно пожалуйста полный алгоритм.

@grren_line · 24.07.2011, 01:33

Pascal

const n=5;    {//n - количество учеников}
 
type spus=array[1..n] of real;
 
var d:spus;
    rezult:real;
 
procedure wod_rost(var d:spus);  {ввод данных через клавиатуру}  
var i:integer;                     
begin
writeln('vvedite rost y4enikov klassa') ;
for i:=1 to n do
readln(d[i]);
writeln('================================');
end;
 
procedure razn(d:spus);   {определяет минимальное и макс значение роста, выводит результат }
var max,min:real;
    i:integer;
begin
min:=d[1];
max:=d[1];
for i:=2 to n do
  begin
  if d[i]<min then
      begin min:=d[i];    end;
  if d[i]>=max then max:=d[i];
  end    ;
  writeln('raznica>',(max-min):5:3)
end;
 
 
begin
Wod_rost(d);
razn(d);
readln
end.

@MrRap 0 / 0 / 0 Регистрация: 22.07.2011 Сообщений: 12
		1
	Определить разницу между самым высоким и самым низким учеником в класе . Организовать ввод значений с клавиатуры. 23.07.2011, 21:39. Показов 2210. Ответов 1 Метки нет (Все метки) Можно пожалуйста полный алгоритм. 0

Опции темы

Определить разницу между самым высоким и самым низким учеником в класе . Организовать ввод значений с клавиатуры.

Решение