Алгоритмізація та програмування у Pascal ABC Послідовність команд, за до яких записують алгоритм розв'язання задачі це - *



сценарій

проект

програма

текст

Заголовок програми починається словом *



readln

program

begin

var

Виконувана частина починається словом *



var

program

begin

writeln

Виберіть оператори вводу. Оберіть декілька варіантів *



writeln

read

write

readln

Виберіть оператори виводу. Оберіть декілька варіантів *



readln

read

writeln

:=

write

Виберіть правильний варіант запису *



S=a*b

S:=ab

​

1.

var

  A: array [1..10] of integer;

  max, i: integer;

begin

    for i:=1 to 10 do                 // заполнение массива

        A[i] := random(100) - 50;

    max := -51;

    for i:=1 to 10 do                 // обработка массива

        if (A[i] < 0) and (A[i] > max) then

        max := A[i];

    writeln(max);

end.

2.

var

  A: array [1..1000] of integer;

  kol, i, N: integer;

begin

    readln(N);

    for i:=1 to N do                 // заполнение массива

        A[i] := random(100) - 50;

    for i:=1 to N do                 // обработка массива

        if A[i] mod 2 = 0 then

        inc(kol);

    writeln(kol);

end.

1.

var

  A: array [1..10] of integer;

  max, i: integer;

begin

    for i:=1 to 10 do                 // заполнение массива

        A[i] := random(100) - 50;

    max := -51;

    for i:=1 to 10 do                 // обработка массива

        if (A[i] < 0) and (A[i] > max) then

        max := A[i];

    writeln(max);

end.

2.

var

  A: array [1..1000] of integer;

  kol, i, N: integer;

begin

    readln(N);

    for i:=1 to N do                 // заполнение массива

        A[i] := random(100) - 50;

    for i:=1 to N do                 // обработка массива

        if A[i] mod 2 = 0 then

        inc(kol);

    writeln(kol);

end.