ответ на задание
Объяснение:
Проведите исследование и узнайте, как работают туристические агентства. Проанализируйте, как можно улучшить
их работу.
Используя эти данные, придумайте концепцию туристического межгалактического агентства.
Будьте внимательны!
Агентство должно быть уникальным и открывать новый
рынок – голубой океан.
Пропишите стратегию развития вашего агентства, проиллюстрируйте вашу стратегию.
Подумайте, что именно вы будете предлагать вашим клиентам и почему они должны прийти именно к вам.
Поделитесь своими знаниями, ответьте на вопрос:
Решить в турбо дано натуральное число n, целые числа а1, а2, а3 вычислить сумму чисел массива , кратных 4 .
Var
A:array[1..10000] of integer;
i,n:integer;
S:real;
Begin
Write('n = ');ReadLn(n);
Write('Введите a1..a',n,': ');
S:=0;
For i:= 1 to N do
Begin
Read(A[i]);
if (A[i] mod 4 = 0) then S:=S+A[i];
End;
WriteLn('S = ',S);
End.
Заполнение случайными числами:
Var
A:array[1..10000] of integer;
i,n:integer;
S:real;
Begin
Randomize;
Write('n = ');
ReadLn(n);
Write('a1..a',n,': ');
S:=0;
For i:= 1 to N do
Begin
A[i]:=random(2*N+1)-N;
Write(A[i],' ');
if (A[i] mod 4 = 0) then S:=S+A[i];
End;
WriteLn;
WriteLn('S = ',S);
End.