По горизонтали: 1.основное устройство ввода информации10букв 2.мозг компьютера(9букв) 3.устройство вывода информации7 букв 4 устройство хранения программ и данных6 букв 5 носитель информации на который записывают программы для хранения7 букв 6.другое название жёсткого диска9 букв

1.клавиатура

2.процессор

3.принтер

4.память

5.дискета,наверное

6.винчестер

не за что.

p.s. решение писала сама,просто долго. из поста выше ничего не копировала.

1) клавиатура

2) процессор

3) принтер

4) память

5) дискета               

6) венчестер

Var n : integer;   begin  write('введите число '); readln(n);   case n of  20 : writeln('двадцать');   21 : writeln('двадцать один');   22: writeln('двадцать два ');   23 : writeln('двадцать три');   24: writeln('двадцать четыре');   24: writeln('двадцать пять');   else writeln('вы ввели недопустимую число! ')  end;   end.  чисел брат дофига ну ты понял  а если вы кейс не проходил то используй просто  if n=20 then write('двадцать'); ))

Uses crt; var max,i,min,now: longint; begin clrscr;   writeln (' vvedite kol-vo chisel '); readln (n);   write  ('vvedite 1  chislo:   ');                             readln(now); max: =now; min: =now; for i: =2  to n do begin write ('vvedite ',i, ' chislo: ');                         readln(now); if now> max then max: =now; if now< min then  min: =now;               end; writeln ('minimum raven: ',min);   write ('maximum reven: ',max); readln; end.