5. Какая машина положила начало механическому этапу раза вычислительной техники? Применение 6.D) 6. Укажите временной промежуток для каждого поколения зеу (табл. 1.1). Таблица 11 Поколение ЭВМ Временной промежуток Элементная база 12

Язык программирования не указан, поэтому был выбрана система PascalABC.Net

const
  Gl=['А','а','Е','е','Ё','ё','И','и','О','о','У','у','Ы','ы',
    'Э','э','Ю','ю','Я','я'];
  stop='$';
var
  c:char;
  n:integer;
begin
  Writeln('Вводите текст по одному символу, завершив ввод символом ',stop);
  n:=0;
  repeat
    ReadLn(c);
    if c in Gl then Inc(n)
  until c=stop;
  Writeln('Количество гласных букв равно ',n)
end.

Напоминаю, что в Паскале ввод каждого отдельного символа с клавиатуры должен завершаться нажатием клавиши Enter!

Const n=3;
var    a: array[1..n] of integer;  
  i, j, k: integer; 
begin  
  randomize;   
  write ('Исходный массив: ');  
  for i := 1 to n do begin  
      a[i] := random(256);     
   write (a[i]:4);    end;    
writeln; writeln;    
  for i := 1 to n-1 do   
     for j := 1 to n-i do   
         if a[j] > a[j+1] then begin     
           k := a[j];            
    a[j] := a[j+1];        
        a[j+1] := k        
    end;    
 write ('массив по возрастанию: '); 
   for i := 1 to n do  
     write(а[i]:4);   
  writeln;
 readln;
end.