profile
Размещено 5 лет назад по предмету Информатика от 14236

Дана матрица размерностью N*M. Найти среднее
арифметическое простых чисел матрицы.

  1. Ответ на вопрос
    Ответ на вопрос дан mefody66
    В турбо паскале, к сожалению, нет динамических массивов, по крайней мере, я в описаниях ничего не нашел, поэтому придется заранее задать N и M.
    Пусть будет N = 10, M = 20. Для чисел меньше миллиона функция Prost работает за вполне приемлемое время.

    PROGRAM SredProst;
    var A: array [1..10, 1..20] of integer;
    var i, k, p: integer, S: real;
    FUNCTION Prost(n: integer): integer
    var i: integer
    BEGIN
    Prost:=1;
    {esli n delitsia na kakoe-to chislo ot 2 do kornya iz n, to n sostavnoe}
    for i:=2 to sqrt(n) do if (n mod i = 0) then Prost:=0;
    END;

    BEGIN
    uses crt; clrscr;
    {Vvodim nachalniy massiv}
    for i:=1 to 10 do
    begin
    for k:=1 to 20 do read (A[i,k]);
    end;
    S:=0; p:=0;
    {Ischem prostye chisla, summiruem ih v S i schitaem kol-vo v p}
    for i:=1 to 10 do
    begin
    for k:=1 to 20 do
    begin
    {Prost - eto funkcia poiska, prostoe chislo ili net}
    if (Prost(A[i,k]) = 1) then
    begin
    S:=S+A[i,k];
    p:=p+1;
    end;
    end;
    end;
    {Srednee - eto summa chisel, delennaya na ih kol-vo}
    S:=S/p;
    writeln ('Srednee vseh prostyh chisel ', S);
    END.

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.