Описать структуру с именем aeroflot, содержащую следующие поля: • название пункта назначения рейса; - id1051942520230411 от fidawa2006ozpk8u 11.04.2023 01:32

Question

Информатика: Описать структуру с именем aeroflot, содержащую следующие поля: • название пункта назначения рейса; • номер рейса; • тип самолета. написать программу, выполняющую следующие действия: 1. ввод с клавиатуры данных в массив, состоящий из семи элементов типа aeroflot, записи должны быть размещены в алфавитном порядке по названиям пунктов назначения; 2. вывод на экран пунктов назначения и номеров рейсов, обслуживаемых самолетом, тип которого введен с клавиатуры; 3. если таких рейсов нет, выдать на дисплей

fidawa2006ozpk8u · Accepted Answer

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ReadArrInteger('Вводите',ReadInteger('n='));
a:=a.Where(x->x>=0).ToArray; a.Println
end.

Пример
n= 5
Вводите 3 -2 0 -1 5 8
3 0 5

То же, в терминах Pascal ABC ("по-школьному")

const
k=50;
var
n,i,m:integer;
a,t:array[1..k] of integer;
begin
Write('n='); Read(n);
Write('Вводите: ');
for i:=1 to n do Read(a[i]);
m:=0;
for i:=1 to n do
    if a[i]>=0 then begin
      m:=m+1;
      t[m]:=a[i]
      end;
n:=m;
for i:=1 to n do begin
    a[i]:=t[i];
    Write(a[i],' ')
    end;
Writeln
end.

Думаю, есть о чем подумать: почему в школе учат писать длинно и сложно?

MOGZ ответил