|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.05.2010, 17:07 | #1 |
Новичок
Джуниор
Регистрация: 25.05.2010
Сообщений: 1
|
проблем с написанием
1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-40,40]. Найти сумму элементов, значения которых по модулю меньше 10.
2. Вывести индексы тех элементов, значения которых больше последующего элемента. 3. Определить, есть ли две пары соседних элементов с разными знаками. привел 1 часть к такому коду: Var Mass:array of word; N,i:word; //от 0 до 65535 S:real48; begin if Mass<>Nil then Mass:=Nil; SetLength(Mass,N); S:=0; for i:=0 to N-1 do begin Mass:=random(81)-40; if Abs(Mass)<10 then S:=S+Mass end end на остальное сообразить не могу(((....Нужна в общем помощь! Плиз!!!! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Несколько проблем с Lazarus'ом | Marsel737 | Lazarus, Free Pascal, CodeTyphon | 1 | 03.02.2010 08:29 |
Как исправить несколько проблем Windows XP SP3? | Syltan | Windows | 22 | 05.01.2010 16:47 |
Диагностика проблем связей | stas77 | Microsoft Office Excel | 1 | 19.11.2009 08:59 |
пошаговый мастер решения проблем. | Gipno | PHP | 4 | 18.06.2009 16:42 |
Несколько проблем | anatolin | Microsoft Office Excel | 5 | 01.12.2008 00:39 |