паскааалььььь - Независимый IT Форум

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1
1

паскааалььььь (задать с клавиатуры число К и определить, сумма скольких эле)

паскааалььььь

я)

Дата: Четверг, 10.11.2011, 19:06 | Сообщение # 1

Сообщений: 1

Репутация: 0

Статус: Offline

program fg;
var A:array [1..10] of integer;
k,kol,i,n : integer;
intvar:integer;
arrsize:integer;
longintvar:longint;
задать с клавиатуры число К и определить, сумма скольких элементов массива (по порядку следования) превысит это число
begin
writeln('ўўҐ¤ЁвҐ k= ');
readln(k);
kol:=0;
for i:=1 to ArrSize do
if ArrSize>k then
Inc(kol);
writeln(kol);
readln;
end.

Страна: Российская Федерация

паскааалььььь (задать с клавиатуры число К и определить, сумма скольких эле)

Страница 1 из 1
1