Відомо результати плавання вільним стилем на дистанції 50 м п’яти учнів кожного з трьох 10-х класів - id1461124520200710 от 19729ром 10.07.2020 15:36

Question

Информатика: Відомо результати плавання вільним стилем на дистанції 50 м п’яти учнів кожного з трьох 10-х класів школи. Розробіть код, за до якого визначається середній час запливу учнями кожного класу.

19729ром · Accepted Answer

Program Task;
Const N = 5;
Var a: Array [1..N] of LongInt;
i: Integer;
Function MinDigit(number: LongInt): Integer;
Var digits: Array of Integer;
num, min, i: Integer;
Begin
num := number;
While num <> 0 Do
Begin
num := num Div 10;
i := i + 1;
End;
SetLength(digits, i);
num := number;
For i := 0 To Length(digits) - 1 Do
Begin
digits[i] := num Mod 10;
num := num Div 10;End;
For i := 0 To Length(digits) - 1 Do
If digits[i] < digits[min] Then
min := i; Result := digits[min];
End;
Begin
WriteLn('Введите ', N, ' целых чисел через пробел');
For i := 1 To N Do
Read(a[i]);
For i := 1 To N Do
Write(MinDigit(a[i]), ' ');
End.

MOGZ ответил