среда, 28 ноября 2012 г.

Зачёт по информатике Умяров Ильдар задание №1


1)Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от  –1000 до 1000. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит среднее арифметическое всех элементов массива, оканчивающихся цифрой 5. Гарантируется, что хотя бы один такое элемент в массиве есть.
Program m99;
Const N=30
Var A:array [1..30] of integer;
I,x,y,min,max: integer;
S:real;
Begin
Min:=1000;
Max:=-1000;
For I := 1 to 30 do
Readln(A[I]);
If A[I]< A[N] then
                      Begin
                      x:=x+1;
                      y:=y+A[I];
                      S:=y/x;
Write(S);
End;
End.

2 комментария:

  1. A[I]< A[N] - неверное условие, д.б.всех элементов массива, оканчивающихся цифрой 5.
    For I := 1 to 30 do
    Readln(A[I]);
    If A[I]< A[N] then
    Begin
    x:=x+1;
    y:=y+A[I];
    S:=y/x;
    Write(S);
    End; - этот "end" стоит не на месте

    ОтветитьУдалить
  2. Этот комментарий был удален автором.

    ОтветитьУдалить