Массив, Массивы да и только. Опции

[Паша]

Всем привет! Я здесь первый раз и очень надеюсь на вашу помощь.
Мне нужно чтобы мне помогли с задачей.
УСЛОВИЕ:
1) Паписать программу которая из М введенных чисел(М<=15) выведет на экран только простые числа.

2) Изменить знак У минимального элемента одномерного массива. :molitva:

[sqrt]

2я задача:

Код

program inverse;
const n=10;
var    a: array[1..n] of integer;
    i,x: integer;
begin    writeln('Введите элементы массива');
    for i:=1 to n do readln(a[i]);
    x:=1;
    for i:=1 to n do if a[x]>a[i] then x:=i;
    writeln('Минимальный элемент: ', a[x]);
    a[x]:=a[x]*(-1);
    for i:=1 to n do writeln(a[i]);
end.

Сообщение отредактировано: sqrt - 21.12.2004 13:06

[mithquessir]

Да что всех на простые числа тянет?
1. Составьте прогрессию

Сообщение отредактировано: volvo - 13.01.2009 13:00