Задача

Тема в разделе "Pascal", создана пользователем aleks.alex, 9 янв 2014.

  1. aleks.alex New Member

    aleks.alex
    Дан целочисленный массив из 40 элементов, все элементы которого-целые числа в интервале от -500 до 500.Опишите алгоритм, который находит среднее арифметическое всех положительных элементов массива, которые кратны первому элементу ( делятся нацело на первый элемент). Гарантируется, что первый элемент массива отличен от нуля

    начало вот такое
    const N=40;
    var a: array [1..N] of integer;
    i,x,y:integer;
    s:real;
    begin
    for i:=1 to N do readln(a);
    ...
    end.
     

Поделиться этой страницей