Помогите решить пожалуйста.. - Форум
Пятница, 09.12.2016, 12:36
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите решить пожалуйста.. (Завтра нужно сдавать:()
Помогите решить пожалуйста..
RusyaДата: Вторник, 14.06.2011, 14:11 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
Имеется массив A из N произвольных чисел (A(N)), среди которых есть положительные,отрицательные и равные нулю. Используя оператор цикла,суммировать квадраты чисел до тех пор, пока сумма не превысит 40. Напечатать,на котором по счету числе это произошло. Если она не произошло вообще,напечатать текст "Числа слишком малы". Например, если А={2,4,3,3,5,-2,1}, результат 5 (сумма квадратов превысила 40 на пятом по счету числе 4+16+9+9+25=63)
 
KOT_B_MEIIIKEДата: Вторник, 14.06.2011, 19:23 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
Code
program kvadrati;
var a:array [1..100] of integer;i,n,kv:integer;
begin
kv:=0;
writeln('Vvedite n');read(n);
writeln('Vvedite ',n,' elemntov massiva: ');
for i:=1 to n do read(a[i]);
i:=1;
while (kv<40) and (i<=n) do
       begin
       kv:=kv+a[i]*a[i];
       i:=i+1
       end;
writeln;
if kv>40 then writeln(i-1) else writeln('Vvedennie chisla clishkom mali');
end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите решить пожалуйста.. (Завтра нужно сдавать:()
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016