1шаг
опустим, что вы скачали и установили паскаль. Затем откройте его. Для программирования вам надо небольшое знание английского языка. Суть нашей программы в том, чтобы она складывала любые числа. Для этого нам нужны переменные. Чисел у нас будет 2. Но в каждой задаче, даже в самой простой, есть ответ. Значит добавляем 3 переменную.
2шагИ так. Чтобы оформить наши переменные перейдите на английский язык и напишите в начале программы слово “var”. А после через запятую наши 3 переменные, а, в, с, и через двоеточие поставьте тип “integer” Далее напишите begin – начать.
На данном этапе программа будет выглядеть так:
var a,b,c:integer;
begin
var
a: array[1..10] of real;
i, k: integer;
C, S, sred: real;
begin
for i := 1 to 10 do
begin
write('a[', i, ']=');readln(a[i]);
end;
write('введите C: ');readln(C);
for i := 1 to 10 do
begin
if a[i] > C then
begin S := S + a[i];K := K + 1; end;
end;
sred := S / k;
Writeln('среднее арифметическое чисел, превосходящих ', C, ' равно ', sred);
end.