Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.06.2015, 01:30   #1
Гарри
Пользователь
 
Регистрация: 11.06.2015
Сообщений: 30
По умолчанию Одномерные массивы Внимание! В задаче реализовать заполнение массива, вывод на экран исходного массива и измененного (если при ре

Для целочисленного массива A(N) вычислить сумму тех элементов, которые удовлетворяют условию |a i| < i ^2
Гарри вне форума Ответить с цитированием
Старый 25.06.2015, 08:55   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код:
const n=2;
 a:array[1..n] of integer=(1,2);
var i,s:integer;
begin
 for i:=1 to n do if abs(a[i])<(i*i) then s:=s+a[i]; write(s); readln;
end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Составить два массива с различными простыми числами среди элементов исходного массива и их частотами maksimum Помощь студентам 7 09.04.2012 17:05
Турбо ассемблер - построить массив путём сдвига исходного массива и умножить все элементы полученного массива на два Александр16 Помощь студентам 5 12.02.2012 20:30
Из исходного массива заполнить два других массива DarkStalkerus Паскаль, Turbo Pascal, PascalABC.NET 1 14.12.2011 14:19
заполнение массива русскими символами и вывод их на экран askerpro Visual C++ 4 09.11.2010 19:01
Заполнение динамического массива данными из файла и последующий вывод на экран vitalyisaev2 Общие вопросы C/C++ 5 08.09.2010 12:51