|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
09.02.2012, 20:08 | #1 |
Пользователь
Регистрация: 09.02.2012
Сообщений: 51
|
массив
помогите пожалуйста
Одномерные массивы Вводятся длина вектора, состоящего из целых чисел, и его элементы. С этим вектором произвести указанное действие и вывести результаты. Если используется "заданное число", то оно тоже вводится. Действие: составить массив из номеров простых чисел. |
09.02.2012, 20:57 | #2 | |
АльTRUEи$т
Форумчанин
Регистрация: 19.03.2009
Сообщений: 784
|
аська в профиле
Цитата:
|
|
09.02.2012, 21:13 | #3 |
Пользователь
Регистрация: 09.02.2012
Сообщений: 51
|
а у вас есть личная почта? у меня нет аськи
|
11.02.2012, 08:22 | #4 | |
Форумчанин
Регистрация: 05.09.2011
Сообщений: 869
|
Цитата:
Во-первых, начало не имеет ничего общего с окончанием. Во-вторых, номера есть номера - хоть простых чисел, хоть квартир в доме, хоть футболистов: 1, 2, 3, 4, 5, ... Уточни задание и приходи. И не ведись на предложения по аське.. Он пришел в раздел, где разбирают, и флудит тут. Пошли его на фик в раздел "Фриланс".
Предпочитаю на "ты".
|
|
12.02.2012, 14:14 | #5 |
Новичок
Джуниор
Регистрация: 12.02.2012
Сообщений: 1
|
Помогите пожалуйста решить задачку:Определить количество положительных элементов в массивах 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. Написали-решить используя подпрограммы(процедуры или функции) КАК? Помогите!!! |
14.02.2012, 10:43 | #6 |
Новичок
Джуниор
Регистрация: 14.02.2012
Сообщений: 9
|
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. если, что - вопросы в ПМ, чтобы не спамить на форуме (или создавайте отдельную тему) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
С# задан массив 5х5. сформировать массивы А и В. в массив А поместить элементы с четными индексами, в массив В с нечетны | Koksa | Помощь студентам | 0 | 10.10.2011 11:26 |
Запись координат в массив в реал тайм, Как записать координаты в массив | Dark19 | Visual C++ | 2 | 21.06.2011 18:45 |
Из массив А получить массив В, удвоив все нечётные элементы удвоены ( на Pascal) | KARTER | Помощь студентам | 1 | 18.06.2011 19:58 |
Массив - Нужно написать массив и распечатать на экран с конца в начало(язык С++) | econ | Помощь студентам | 1 | 29.05.2011 22:02 |
Упорядочить массив в порядке возрастания и напечатать входной и исходный массив. | TheVenny | Помощь студентам | 3 | 26.11.2008 15:06 |