Честно, не поняла ваш код вообще. Почему нет цикла? Предлагаю свое решение: 1)Cначала заполняем массив случайными числами от 2 до 5 (включительно) 2)Потом выводим его (Для проверки) 3) Потом считаем оценки. Но сначала нужно обнулить переменные( В самом начале это делали), а то получится кака (:
program N_0547847; var b, c, d, f, i:integer; a: array [1..20] of integer; begin; randomize; b:=0; c:=0; d:=0; f:=0; for i:=1 to 20 do begin a[i]:=random(4)+2; write(a[i],' '); end; writeln; for i:=1 to 20 do begin if a[i]=2 then b:=b+1; if a[i]=3 then c:=c+1; if a[i]=4 then d:=d+1; if a[i]=5 then f:=f+1; end; writeln('Двоек: ', b); writeln('Троек: ', c); writeln('Четверок: ',d); writeln('Пятерок: ',f); end.
2) Какие выставишь такие и будут. Последнее время основными есть Cambria и Calibri, раньше был Times New Roman и Arial (соответственно с засечками и без) 3) Изменение формата текста без изменения самого содержания текста. Т.е. шрифт, размер, цвет, отступы и тп 4) Фрагмент текста - кусок текста, часть текста 5) Многооконное приложение позволяет открывать несколько документов в одном приложении 6) Обычно Сtrl+F или иконка с лупой - вызывает поиск, в строку поиска вводим искомую строку или выражение, настраиваем доп параметры типа искать везде, или только вниз, или только вверх и тп. Потом нажимаем Enter и начинается поиск. F3 - искать далее, Shift+F3 - искать предыдущее Замена не так стадартизирована. Обычно находится в меню Изменить, для Word в конце группы Главная с характерной иконкой "ab->ac". Сочетания клавиш обычно Ctrl+H или Ctrl+R. Тут уже два поля ввода, первое аналогично того что у поиска, второе для текста замены. Кнопка "Заменить" делает замену и ищет следующее, кнопка "Найти далее" - пропускает текущее найденное и ищет дальше без замены 7) Орфография делает автоматическую проверку правильности написания слов, иногда и другие правила типа составления предложений и тп. Каждая программа использует свой орфографический словарь и хранит его с файлами программы или в специальном хранилище для файлов этой программы 8) Создать, Редактировать, Сохранить, Открыть, Создать копию через сохранить как 9) Стандартное сочетание клавиш Ctrl+P, для настроек можно использовать что-то типа Просмотр и печать. Для распечатки нужен как минимум рабочий принтер или виртуальный принтер например для распечатки в pdf файл, так же установленные драйвера к принтеру и доступ к нему 10) F1 или иконка знак вопроса.
1)Cначала заполняем массив случайными числами от 2 до 5 (включительно)
2)Потом выводим его (Для проверки)
3) Потом считаем оценки. Но сначала нужно обнулить переменные( В самом начале это делали), а то получится кака (:
program N_0547847;
var
b, c, d, f, i:integer;
a: array [1..20] of integer;
begin;
randomize;
b:=0; c:=0; d:=0; f:=0;
for i:=1 to 20 do begin
a[i]:=random(4)+2;
write(a[i],' '); end;
writeln;
for i:=1 to 20 do begin
if a[i]=2 then b:=b+1;
if a[i]=3 then c:=c+1;
if a[i]=4 then d:=d+1;
if a[i]=5 then f:=f+1;
end;
writeln('Двоек: ', b);
writeln('Троек: ', c);
writeln('Четверок: ',d);
writeln('Пятерок: ',f);
end.