Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте!
Здравствуйте, эксперты!
Помогите решить задачу!
найти сумму квадратов элементов массива, расположенных после первого положительного числа

Вопрос задала: Aibulat (статус: Посетитель) Вопрос отправлен: 26 октября 2012, 12:27 Состояние вопроса: решён, ответов: 0.

Мини-форум вопроса

26 октября 2012, 12:30: Вопрос перемещён из тематического раздела Pascal » Программирование на Pascal в раздел Лабораторный практикум » Pascal модератором DNK

min@y™ (статус: Доктор наук), 26 октября 2012, 13:05 [#1]: Массив сколько-мерный? Какого типа элементы? Сколько их? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Aibulat (статус: Посетитель), 26 октября 2012, 13:16 [#2]: const nmax=100; var a: array[1..nmax] of integer; n,i,sum: integer; boo: boolean; begin boo:=false; randomize; writeln('Введите количество элементов n: '); readln(n); writeln('Массив:'); for i:=1 to n do begin a[i]:=random(19)-9; write(a[i],' '); if boo then sum:=sum+sqr(a[i]); if a[i]>0 then boo:=true; end; writeln('Сумма квадратов после первого положительного = ',sum); readln; end.

26 октября 2012, 13:40: Статус вопроса изменён на решённый (изменил автор вопроса — Aibulat)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.