Задача 5 Урок 17
Primary tabs
Пользователь вводит в консоль строки вида (имя + произвольное число пробелов + балл):
Вася 485
Коля 555
Юра 61
..........
....
end // признак завершения ввода
(пока не введёт строку end) -- где слева указаны имена участников, а справа -- число баллов.
Используя массив строк и массив целых чисел (пусть оба массива будут максимальной длины =3) считайте отдельно имена и баллы и определите победителя, выведя его имя и полученный им балл.
program lesson17_5; var s: array[1..10] of string; strArr: array[1..3] of string; intArr: array[1..3] of integer; name, sBall: string; i, j, ball, max, index: integer; begin writeln('specify the name and the ball: '); for i := 1 to 10 do begin write(i, '. '); readln(s[i]); if s[i] = 'end' then break; end; ball := 0; for i := low(strArr) to high(strArr) do begin name := ''; sBall := ''; for j := 1 to length(s[i]) do if (s[i][j] >= '0') and (s[i][j] <= '9') then sBall := sBall + s[i][j] else if s[i][j] <> ' ' then name := name + s[i][j]; val(sBall, ball); strArr[i] := name; intArr[i] := ball; end; max := 0; for i := 1 to 3 do if intArr[i] > max then begin max := intArr[i]; index := i; end; writeln('winner: ', strArr[index], ' ', intArr[index]); readln(); end.
- Log in to post comments
- 1045 reads
vedro-compota
Wed, 09/08/2021 - 19:28
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)