Помогите студентику

[Татуся]

Помогите студентику

Ребятки, помогите. Задали контрольную в Паскале. Составить блок-схему и написать програму решения:
- Задан масив У(У1,У2,... Уn). Найти суму всех елементов масива, квадрат которых не превышает числа А.

 

[Vladimir_S]

Ребятки, помогите. Задали контрольную в Паскале. Составить блок-схему и написать програму решения:
- Задан масив У(У1,У2,... Уn). Найти суму всех елементов масива, квадрат которых не превышает числа А.

Да... это, конечно, безумно сложно...

CONST
 Nmax=100;
VAR
 Y:ARRAY[1..Nmax] of Real;
 N,i:Integer;
 A,Sum:Real;
BEGIN
 Write('N (number of elements) = ');
 Readln(N);
 Writeln;
 For i:=1 to N do
  begin
   Write('Y[',i:2,']= ');
   Readln(Y[i]);
  end;
 Writeln;
 Write('A = ');
 Readln(A);
 Sum:=0;
 For i:=1 to N do
  If Sqr(Y[i])<=A then Sum:=Sum+Y[i];
 Writeln;
 Writeln('Sum = ',Sum:7:3);
 Readln
END.

А вот блок-схемами, извините, не занимаюсь. Тут уж Вы сами как-нибудь.

 

[Татуся]

Спасибки большое=))):tehnari_ru_288: