Всем привет! Я здесь первый раз и очень надеюсь на вашу помощь.
Мне нужно чтобы мне помогли с задачей.
УСЛОВИЕ:
1) Паписать программу которая из М введенных чисел(М<=15) выведет на экран только простые числа.
2) Изменить знак У минимального элемента одномерного массива. :molitva:
Полная версия: Массив
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.