Меню сайта

Задача №8

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

uses crt-

vari,max,rr,vv,size:integer-

— — — vnam1,vnam2:string-

— — — nam1:array[1..10] of string-

— — — nam2:array[1..10] of string-

— — — r:array[1..10] of integer-

— — — v:array[1..10] of integer-

begin

clrscr-

writeln(‘Введите кол-во учеников в классе’)-

readln(size)-

FOR i := 1 TO sizedo

begin

clrscr-

writeln(‘Введите фамилию ученика, имя, рост, вес через Enter’)-

readln(nam1[i])-

readln(nam2[i])-

readln(r[i])-

readln(v[i])-

end-

clrscr-

max := r[1]-

FOR i := 1 TO sizedo

begin

IF r[i] &gt- maxTHEN

begin

vnam1 := nam1[i]-

vnam2 := nam2[i]-

rr := r[i]-

vv := v[i]-

max:=r[i]-

end-

end-

clrscr-

writeln(‘самый высокий ученик’)-

writeln(‘Фамилия’, ‘Имя’:10, ‘Рост’:10, ‘Вес’:10)-

writeln(vnam1,vnam2:12, rr:12, vv:12)-

end.

Категория: Общие | Дата: 27.12.12

Меню раздела
Блок