1) Укажите столбец таблицы (под каким номером) 2) Покажите, где устанавливается размер шрифта (под каким номером)
3) Укажите полосу вертикальной прокрутки (под каким номером)
4) Укажите ячейку таблицы (под каким номером)
5) Укажіте строку таблицы (под каким номером)
6) Где записан адрес активной ячейки? (под каким номером)
7) Укажите выделенный диапазон ячеек (под каким номером)
8) Покажите элементы Меню (под каким номером)
9) Покажите на Панелни инструментов элемент, объединяющий диапазон ячеек в одну (под каким номером)
10) Покажите строку формул (под каким номером)
uses crt;
const n=10;
var
a:array [1..n] of integer;
i,j:integer;
s:real;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln('Программа выводит количество учащихся, чья оценка за тест выше средней оценки в классе');
writeln('Введите оценку каждого учащегося:');
s:=0;
for i:=1 to n do
begin
write(i,'-й учащийся. Оценка '); readln(a[i]);
s:=s+a[i];
end;
s:=s/n;
writeln('Средняя оценка в классе равна ',s:4:2);
j:=0;
for i:=1 to n do if a[i]>s then j:=j+1;
writeln('Количество учащихся, чья оценка за тест выше средней оценки в классе, равно ',j);
end.
Program Summ;
Var a, b, c: integer;
Begin
Writeln ('введите первое число: ' );
Readln (a);
Writeln ('Введите 2-рое число:');
Readln (b);
c:a+b; {вот на этом этапе компилятор нам выдаст ошибку строка должна выглядеть так c:=a+b; }
writeln ( 'Результат =' ,c);
End.
ну а теперь можно её и разобрать
Var a, b, c: integer; Объявляем переменные
Begin
Writeln ('введите первое число: ' ); выводим на экран предложение ввести число
Readln (a); присваиваем переменной А введённое число
Writeln ('Введите 2-рое число:'); выводим на экран предложение ввести число
Readln (b); присваиваем переменной В введённое число
c:=a+b; Присваиваем переменной С сумму чисел А и В
writeln ( 'Результат =' ,c); Выводим результат
End.