![]() |
![]() ![]() |
![]() |
mashakasha |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 2 Пол: Женский Реальное имя: мария Репутация: ![]() ![]() ![]() |
var A:array [1..10] of integer;
s,k,i,p:integer; begin p:=1; A[1]:=1; for i:=2 to 10 do begin p:=p*i; A[i]:=p; end; for i:=1 to 10 do writeln ('a[',i,']=',a[i]); writeln('Введите k'); readln(k); s:=0; for i:=1 to 10 do begin s:=s+A[i]; if s>k then break; end; if s>k then writeln('минимальное количество элементов массива сумма которых больше ',k,' = ',i) else writeln ('В массиве нет таких элементов'); end. |
![]() ![]() |
![]() |
Текстовая версия | 8.09.2024 23:38 |