Массивы. Найти суму всех элементов масива, квадрат которых не превышает заданного числа

@Татка · Регистрация: 02.04.2012

Author24 — интернет-сервис помощи студентам

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

@3a9Ic · 13.04.2012, 17:00

Pascal

var b:array[1..99] of integer;
    a,i,n,s:integer;
begin
     write('Число А = ');Readln(a);
     Write('Колличество эл. в массиве = ');Readln(n);
     writeln('Массив:');
     for i:=1 to n do Readln(b[i]);
     for i:=1 to n do
     if b[i]*b[i]<a then
     s:=s+b[i];
     writeln('Summa=',s);
end.

А Блок-схему и Сами построите, чур не трудная задачка.

@Татка 0 / 0 / 0 Регистрация: 02.04.2012 Сообщений: 17
		1
	Массивы. Найти суму всех элементов масива, квадрат которых не превышает заданного числа 13.04.2012, 11:46. Показов 1761. Ответов 1 Метки нет (Все метки) Помогите решыть задание. Необходимо составить блок-схему и написать програму решения в Паскале: - Задан масив У(У1,У2,... Уn). Найти суму всех елементов масива, квадрат которых не превышает числа А. Спасибо) 0

	13.04.2012, 17:00

Массивы. Найти суму всех элементов масива, квадрат которых не превышает заданного числа

Решение