Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Массив
Автор: Паша 21.12.2004 16:22
Всем привет! Я здесь первый раз и очень надеюсь на вашу помощь.Мне нужно чтобы мне помогли с задачей.
УСЛОВИЕ:
1) Паписать программу которая из М введенных чисел(М<=15) выведет на экран только простые числа.
2) Изменить знак У минимального элемента одномерного массива. :molitva:
Автор: sqrt 21.12.2004 17:05
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.
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.
Автор: mithquessir 21.12.2004 21:52
Да что всех на простые числа тянет? 
1. http://forum.pascal.net.ru/index.php?s=&showtopic=3360&view=findpost&p=30262