Как составить программу в паскале для вычисления среднего арифметического

Перейти к содержанию

const N = 10;

type

    arrtype = array[1..N] of integer;

var

    arr: arrtype;

    i: byte;

    avrg: real;

 
procedure fill_array(var a: arrtype); 

begin

    for i:=1 to N do a[i]:=random(50)+1;

end;

 
function average(a:arrtype):real;

var sum:integer;

begin

    sum := 0;

    for i:=1 to N do sum:=sum+a[i];

    average := sum / n;

end;

 
begin

    randomize;

    fill_array(arr);

    for i:=1 to N do write(arr[i]:4);

    writeln;

    avrg := average(arr);

    writeln(avrg:3:2);

end.

   3  31  24  25  42   5  26  39  27  43

26.50

#include < stdio.h>

#define N 10

float average(int arr[]);


main() {

    int a[N];

    int i, min1, min2, buff;

    srand(time(NULL));

    for (i=0; i< N; i++) {

        a[i] = rand() % 100;

        printf("%3d", a[i]);

    }

    printf("n %.2fn", average(a));

}


float average(int arr[]) {

    int sum, i;

    sum = 0;

    for (i=0; i< N; i++) sum += arr[i];

    return sum/N;

}

 82 35  2 32 56 55 33 41 99 45

 48.00

from random import random

N = 10

 
def average(a):

    s = 0

    for i in range(N):

        s += a[i]

    return s/N



  


                       
  




 
arr = [0] * N

for i in range(N):

    arr[i] = int(random() * 100)


b = average(arr)

print(arr)

print(b)

[30, 63, 67, 29, 29, 54, 30, 29, 41, 0]

37.2

 Решение задач по программированию из огэ по информатике на паскале.

В этой статье мы научимся решать на паскаль задачи с номером 20  огэ по информатике. 
Чтобы успешно решать задачи огэ по программированию на паскаль нужно уметь
определять и вводить с клавиатуры переменные в Паскаль 
вводить данные с помощью цикла for в Паскаль, 
проверять введенные данные с помощью оператора условия if Паскаль, 

Разберем как решать на паскаль задачу огэ по программированию на поиск суммы

Напишем программу на паскаль, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 5. 
В начале программы зададим переменные 
n отвечает за количество элементов в последовательности 
i счетчик цикла
s отвечает за сумму
a отвечает за элемент последовательности

В  начале программы введем число элементов последовательности, значению суммы присвоим 0
var i,n,s,a: integer;
begin
s:=0;
writeln(‘введите число элементов’);
readln(n);
С помощью цикла for организуем ввод элементов последовательности. Для каждого элемента последовательности проверяем его последнюю цифру, равна ли она 5. Чтобы получить последнюю цифру числа, нужно применить операцию
Переменная mod 10
Поэтому, чтобы проверить, является ли последняя цифра 5, нужно применить оператор условия if
if (a mod 10 = 5) then
 begin
s = s+a;
end;

Полная версия программы для поиска суммы элементов последовательности, последняя цифра которых 5 на паскале
var i,n,s,a: integer;
begin
s:=0;
writeln(‘введите число элементов’);
readln(n);
for i:=1 to n do
begin
readln (a);
if (a mod 10=5) then
begin
s:=s+a;
end;
end;
writeln (s);
end.

Разберем как решать на паскаль задачу огэ по программированию на расчёт среднего арифметического элементов последовательности, удовлетворяющих заданному условию

Напишем программу на паскале, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 7, или сообщает, что таких чисел нет (выводит «NO»). 

В начале программы зададим переменные
n – количество элементов в последовательности
i – счётчик цикла
s – сумма элементов
a – текущий элемент последовательности
k – количество элементов, кратных семи
Задаём количество элементов в последовательности, обнуляем сумму и переменную счётчика.
var i,n,s,k, a: integer;
begin
s:=0;
k:=0;
writeln(‘введите число элементов’);
readln(n);
В цикле for вводим с клавиатуры элементы последовательности. С помощью условия if проверяем, кратен ли элемент семи, с помощью выражения a mod 7 = 0. Если элемент кратен, то прибавляем его к сумме, и увеличиваем количество элементов на 1.
for i:=1 to n do
begin
readln (a);
if (a mod 7=0) then
begin
s:=s+a;
k:=k+1;
end;
end;
В конце программы проверяем, есть ли элементы, кратные семи, если их нет, то выводим сообщение «Элементов нет», иначе выводим среднее арифметическое элементов, кратных семи. Чтобы подсчитать среднее арифметическое, нужно сумму поделить на количество элементов. 
if (k=0) then
begin
writeln (‘Элементов нет’);
end
else 
begin
writeln (‘Среднее арифметическое’, s/k);
end
Полная версия программы на паскаль, которая подсчитывает среднее арифметическое элементов, кратных семи
var i,n,s,k, a: integer;
begin
s:=0;
k:=0;
writeln(‘введите число элементов’);
readln(n);
for i:=1 to n do
begin
readln (a);
if (a mod 7=0) then
begin
s:=s+a;
k:=k+1;
end;
end;
if (k=0) then
begin
writeln (‘Элементов нет’);
end
else 
begin
writeln (‘Среднее арифметическое’, s/k);
end
end.

Перейти к курсу паскаль

Полезно почитать по теме задачи огэ по информатике на паскале

Решение на паскале задач огэ по информатике на поиск числа элементов удовлетворяющих заданному условию 

Решение задач на паскале из демо вариантов огэ по информатике

Поделиться: