Вывести номера тех спортсменов, чей вес превышает норму

@ZheniaStar · Регистрация: 03.01.2013

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

Есть группа спортсменов из 7 человек. Для каждого спортсмена приводится его рост и вес. Вес спортсмена считается нормальным, если от роста отнять 100 и полученное число отличается от веса не более чем на 3. Вывести номера тех спортсменов, чей вес превышает норму.

@senich · 05.01.2013, 23:15

Pascal

uses CRT;
const n=3;
type sport=record
           ves:integer;
           rost:integer;
           end;
var
   mas:array[1..n] of sport;
   i,count:integer;
BEGIN
  for i:=1 to n do
    begin
    writeln('Vvedite ves i rost sportsmena #',i,'.');
    readln(mas[i].ves,mas[i].rost);
    clrscr;
    end;
  writeln('Sprtsmeni, chei ves vishe normi:');
  for i:=1 to n do
    if mas[i].ves-(mas[i].rost-100)>4 then
      begin
      writeln('Sprotsmen #',i,'.');
      inc(count);
      end;
  if count=0 then
    begin
    clrscr;
    writeln('Vse sportsmeni imeut normalnii ves.');
    end;
  readln;
END.

@ZheniaStar 0 / 0 / 0 Регистрация: 03.01.2013 Сообщений: 23
		1
	Вывести номера тех спортсменов, чей вес превышает норму 05.01.2013, 22:23. Показов 1756. Ответов 1 Метки нет (Все метки) Есть группа спортсменов из 7 человек. Для каждого спортсмена приводится его рост и вес. Вес спортсмена считается нормальным, если от роста отнять 100 и полученное число отличается от веса не более чем на 3. Вывести номера тех спортсменов, чей вес превышает норму. 0

	05.01.2013, 23:15

Вывести номера тех спортсменов, чей вес превышает норму

Решение