Программа на Pascal.

[emersy]

Помогите ктото сделать задачу, ... большое спс
кидаю на 2ох языках

Задача
На украинском:
"
задано масив з 30 випадкових чисел. Знайти кількість чисел, яка є більшою: тих, що діляться націло на 5 чи на 7. Програму оформити у вигляді процедур і функцій. Програма повинна володіти меню для вибору режимів її роботи. Передбачити зчитування вхідних даних з файлу чи клавіатури та збереження роботи програми у файл.

Задача
На русском:

задан массив из 30 случайных чисел. Найти количество чисел, которая больше: тех, которые делятся на цело на 5 или на 7. Программу оформить в виде процедур и функций. Программа должна обладать меню для выбора режимов ее работы. Предусмотреть считывания входных данных из файла или клавиатуры и сохранение работы программы в файл.


Эслы комуто ниф чё делать, хелп, на завтра должен сделать.

[Vikenty]

Сообщение от emersy

Эслы комуто ниф чё делать, хелп, на завтра должен сделать.

Не понял фразы...

[emersy]

я имел введу
если есть время, сделайте пож. скорее...
сдавать надо скоро...

[Hacker19_90]

Ну для начала вот тебе процедура для считывания из файла
P.S.: Немного кривовато, но можно исправить

procedure ReadF(var M: Massiv);
var
    i: integer;
    F: file of integer;
    fname: string;
begin
    Writeln ('введите имя файла');
    Readln (fname);
    Assign (F, fname);
    Reset (F);
    for i := 1 to 30 do
        Read(F, M[i]);
    Close(f); {Забыл}
end;

P.S.: Нет проверок файла и т.д.

[Hacker19_90]

Вот процедура считывания с Клавы

procedure ReadK (var M: Massiv);
var
    i: integer;
begin
     Writeln('Введите 30 элементов');
     for i := 1 to 30 do
         Read(M[i]);
     Readln;
end;

[Hacker19_90]

вот функция поиска количества элементов, которые больше максимального числа делённого на 5 или 7 без остатка(Как я понял);

function Find (M:Matrix): integer;
var
    i: integer;
    count, max: integer;
    F: file of integer;
begin
    count := 0;
    max := M[1];
    for i := 1 to 30 do
    begin
        if ((M[i] mod 5) = 0 ) or ((M[i] mod 7) = 0) then
            if M[i] > max then max := M[i];
    end;
    for i := 1 to 30 do
       if M[i] > max then Inc(count);
    Assign (F, 'output.dat');
    Rewrite (F);
    Write (F, count);
    Close(F);
    Find := count;
end;

Я короче не знаю что тебе в файле сохранять Вот и сохранил кол-во елементов

[Hacker19_90]

А это не достающая программа(ток процедуре мои добавь)

program forum;
uses crt;
type
    Massiv = array[1..n] of integer;
var
    A: Massiv;
    ch: char;
......................................................
begin
    while true do
    begin
       Writeln ('Нажми 1 для ввода из файла');
       Writeln ('Нажми 2 для ввода c клавиатуры');
       Writeln ('Нажми 3 для нахождения код -ва');
       Writeln ('Нажми 4 для выхода');
       ch := ReadKey;
       case ch of
           '1': ReadF(A);
           '2': ReadK(A);
           '3': begin
                    Writeln('Кол-во элементов равно ', Find(A));
                end;
           '4': exit;
        end;
    end;
end.