Помогите выполнить задание

[Dunn]

Помогите выполнить задание а то деньги трясут преподы в универе просто ппц.
Помогите пожалуйста, я к отчислению!!!! Пожалуйста!!!!!
Составление схемы алгоритма, программирование и решение задачи

Схема алгоритма должна быть составлена с обязательным соблюдением всех его свойств и ГОСТ 19.701-90, предусматривать ввод числа элементов массива(ов), выполнение вычислительной части, вывод введенных исходных данных, промежуточных значений и результатов вычислений. Схема алгоритма выполняется в текстовом процессоре.

Программа вычислений составляется в соответствии с алгоритмом на заданном языке программирования.

Обязательно приводится распечатка программы и распечатка вывода. Целесообразно количество элементов в массивах устанавливать в пределах 10-15.

гост http://www.pntd.ru/19.701.htm

Я буду вам очень благодарен если вы поможете!!!

[Dunn]

up очень срочно помогите плиз!!!!!!!!!!!!!!!!!

[capta1n]

Надо чтобы профессионалы к этому вопросу подошли, я врятли смогу очень хорошо все выполнить

[capta1n]

И я не вижу самого задания

[Dunn]

Извени сейчас посмотрю, я туплю очень сильно =((((

[Dunn]

Скорее всего задание вот: Схема алгоритма должна быть составлена с обязательным соблюдением всех его свойств и ГОСТ 19.701-90, предусматривать ввод числа элементов массива(ов), выполнение вычислительной части, вывод введенных исходных данных, промежуточных значений и результатов вычислений. Схема алгоритма выполняется в текстовом процессоре.

Программа вычислений составляется в соответствии с алгоритмом на заданном языке программирования.

Обязательно приводится распечатка программы и распечатка вывода. Целесообразно количество элементов в массивах устанавливать в пределах 10-15.

Вычислить сумму квадратов элементов, кратных 3.

Ребята помогите пожалуйста, не посмотрел сначала.

[capta1n]

program pp; { Программа выводит сумму квадратов элементов массива, кратных трем; Массив задается в программе }
const
 m = 15; { Размерность массива }
var
 C : array [1..m] of integer; { Целочисленный массив }
 i : byte; { Счетчик }
 sum : word; { Сумма }
begin { Начало программы }
 writeln ('Zapolnite massiv: ');
 for i:=1 to m do { Заполняем массив }
 begin
   write ('C[',i,']= ');
   readln (C[i])
 end;

 Write ('Vash massiv: ');
 for i:=1 to m do write (C[i],'|'); { Выводим массив }

 sum:=0; { Инициализируем переменную для суммы }
 for i:=1 to m do { Проверяем весь массив - если есть элементы, кратные трем, значит возводим в квадрат значение и добавляем в сумму }
  if C[i] mod 3 = 0 then sum:=sum+sqr(C[i]);

 writeln;
 writeln ('Summa= ',sum); { Печать на экран суммы }
 readln; { Для продолжения нажмите <ENTER> }
end. { Конец программы }

[capta1n]

Вот комплект - если что не так - пиши

[Dunn]

Огромное Тебе спасибо!!!! Ты меня спас!!!

[Serge_Bliznykov]

Dunn, по ником пользователя есть "пиктограмма с весами" - нажав на неё, можно добавить отзыв (и повысить репутацию!)
А то, понимаешь ли, Вам помогли. Быстро. И причём бесплатно. А Вам на отзыв тяжело нажать?!! :-(