массив

[Людмила_И]

помогите пожалуйста

Одномерные массивы
Вводятся длина вектора, состоящего из целых чисел, и его элементы. С этим вектором произвести указанное действие и вывести результаты. Если используется "заданное число", то оно тоже вводится.
Действие:
составить массив из номеров простых чисел.

[IT-man]

аська в профиле

[Людмила_И]

а у вас есть личная почта? у меня нет аськи

[TinMan]

Сообщение от Людмила_И

Вводятся длина вектора, состоящего из целых чисел, и его элементы. С этим вектором произвести указанное действие и вывести результаты. Если используется "заданное число", то оно тоже вводится.
Действие:
составить массив из номеров простых чисел.

Люд, я никак не могу понять твое задание.. Ты все точно привела?
Во-первых, начало не имеет ничего общего с окончанием.
Во-вторых, номера есть номера - хоть простых чисел, хоть квартир в доме, хоть футболистов: 1, 2, 3, 4, 5, ...

Уточни задание и приходи.
И не ведись на предложения по аське.. Он пришел в раздел, где разбирают, и флудит тут. Пошли его на фик в раздел "Фриланс".

[Kossta]

Помогите пожалуйста решить задачку:Определить количество положительных элементов в массивах X(10) Y(20) Z(15)
Решили так:
Program Massivy;
Var x:array[1..10] of integer;
i, s: integer;
Begin
Writeln (ввод значений элементов массива);
For i:=1 to 10 do
begin
write (введите значение ,i,-элемента);
readln (x[i]);
end;
s:=0;
For i:=1 to 10 do If x[i]>0 then s:=s+1;
writein(в массиве,s,положительных элементов)
End.
Написали-решить используя подпрограммы(процедуры или функции) КАК? Помогите!!!

[Валлидол]

Kossta, вот код для решения вашей задачи:

Program Massiv;
Type mas=array [1..40] of integer;

Procedure InMas(Var X_m:mas;n:byte);
Var i:byte;
Begin
for i:=1 to n do
X_m[i]:=random(50)-17;
End;

Procedure OutMas(X_m:mas;n:byte);
Var i:byte;
Begin
for i:=1 to n do
write(X_m[i]:4:2);
End;

Function plusEl(x_m:mas;n:byte):real;
var i:byte;
sum:real;
begin
sum:=0;
for i:=1 to n do
if x_m[i]>0 then sum:=sum+x_m[i];
plusEl:=sum;
end;

Begin
ClrScr;

Writeln('Massiv X');
inmas(X,10); outmas(X,10);
writeln('summa "+" elem v massive X=',plusEl(x,10):4:2);

Writeln('Massiv Y');
inmas(y,20); outmas(y,20);
writeln('summa "+" elem v massive Y=',plusEl(y,20):4:2);

Writeln('Massiv Z');
inmas(z,15); outmas(z,15);
writeln('summa "+" elem v massive Z=',plusEl(z,15):4:2);

Readln;
End.

P.S. если, что - вопросы в ПМ, чтобы не спамить на форуме (или создавайте отдельную тему)