Задача с массивами

[mister ratmir]

Задача с массивами

помогите решить задачу на паскале:Для заданной целочисленной матрицы найти минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали матрицы.

 

[mister ratmir]

задача на паскале

помогите пожалуйста:Для заданного натурального N определите первые N простых чисел

 

[TaRaKaN]

Что-то я вторую задачу понять не могу =( Поясни, плиз =)

 

[AlexZir]

А что там пояснять-то? Нужно ввести N и вывести первые N простых чисел.

 

[mister ratmir]

помогите пожалуйста:Для заданного натурального N определите первые N простых чисел
условие задачи такое же!там надо ее решать с процедурами!если не сможете эту не беда!главное хотя бы ту!пожалуйста!

 

[TaRaKaN]

AlexZir, пасибо. Понял задачу и осознал глупость своей просьбы

 

[TaRaKaN]

program ProstChisla
var N, i, a, j, x: integer
begin
clrscr;
writeln ("введите колличество необходимых простых чисел N=");
readln (N);
a:=3;
i:=3;
x:=0;
if N=0 do writeln ("простых чисел не найдено") else
if N=1 do writeln ("1") else
if N=2 do begin; writeln ("1"); writeln ("2"); end; else
writeln ("1");
writeln ("2");
while i<=N do
begin;
for j:=2 to a-1 do
if (a mod j<>0) then x:=x+1 else x:=x+0;
if x=0 then
begin;
writeln (a);
i:=i+1;
end;
a:=a+1;
end;
end.

 

[TaRaKaN]

Задача про простые числа. В синтаксисе языка могут быть ошибки. Проверьте на работоспособность

 

[mister ratmir]

спасибо))))))))))

 

[TaRaKaN]

mister ratmir, отпишитесь хоть как программа, прошла/не прошла =)