Решить табличным В финале турнира Российской Армии - вопрос №16703404 от fbnjvtlchenko 26.06.2020 07:46

Question

Информатика: Решить табличным В финале турнира Российской Армии по шахматам встрети- лись представители шести воинских званий: майор, капитан,лейтенант, старшина, сержант и ефрейтор, причем разныхспециальностей: лётчик, танкист, артиллерист, миномётчик,сапёр и связист. Определите специальность и звание каждогоиз шахматистов по следующим данным:1) в первом туре лейтенант выиграл у лётчика, майору танкиста, а сержант — у миномётчика;2) во втором туре капитан выиграл у танкиста;3) в третьем и четвёртом турах миномётчик

fbnjvtlchenko · Answer

Var i,ne,ch,n:integer;
a:array of integer; //объявление динамического массива
begin
write('Введите длину массива :');
readln(n);
randomize;
a:= new integer[n+1];// установка размера (n+1) динамического массива
for i:=1 to n do
begin
a[i]:=random(80)+20;
write(a[i],' ');//Вывод на экран полученного массива
if odd(a[i]) then inc(ne);// odd() - функция,определяющая нечетность числа.Возвращает значение True, если число нечетное
end; //inc() - функция инкремент - увелечения на 1.
ch:= n-ne;
writeln;
writeln('Нечетные=',Ne);
writeln('Четные=',Ch);
end.