Регистрация
Arestan
19.08.2022 22:16
Информатика
Есть ответ 👍

Написать программу для вывода на экран всех маленьких букв

236
371
Посмотреть ответы 2

Ответы на вопрос:

Nzzjsjs
Nzzjsjs
4,5(100 оценок)
// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin     (range('а','е')+'ё'+range('ж','я'('') end. результат абвгдеёжзийклмнопрстуфхцчшщъыьэюя
daniil14537
daniil14537
4,4(83 оценок)

const n=20;

var a: array[1..n] of integer;

    i,j,c: integer;

begin

  randomize;

  for i: =1 to n do begin

    a[i]: =random(100);

    writeln('a[',i,']=',a[i]);

  end;

  for i: =1 to n do begin

    while (a[i] mod 2 < > 0) do begin

      c += 1;

      for j: =i to n-1 do begin

        a[j]: =a[j+1];

        a[j+1]: =0;

      end;

    end;

  end;

 

  writeln('размер массива: ',n-c);

  for i: =1 to n-c do begin

    writeln('a[',i,']=',a[i]);

  end;

end.

Популярно: Информатика