Const n=
var a:array [1..n] of integer; (целый)
i,k, i_max: byte; max, sum:integer;
begin
randomize; или for i:=1 to n do
for i:=1 to n do readln(a[i]);
a[i]:=random (100);
k:=0
for i:=1 to n do
if a[i]<0 then k:=k+1];
max:=0; i_max:=0;
for i:=1 to n do
if a[i]>max then begin max:=a[i]; i_max:=i; end;
sum:=0;
for i:=i_max to n do
sum:=sum+a[i];
writeln('Количество отрицательных элементов ',k);
writeln('Сумма элементов ', sum);
readln;
end.
from random import randint as random
m = [random(1,100) for i in range(1,30+1)]
s = -1
for i in range(0,30):
print('{:3.0f}'.format(m[i]))
for i in range(0,28):
if m[i]+m[i+1]+m[i+2]>s:
a = m[i]
b = m[i+1]
c = m[i+2]
s = a + b + c
print(' a b c')
print('{:3.0f}'.format(a))
print('{:3.0f}'.format(b))
print('{:3.0f}'.format(c))
Да, поместятся.
2 ГБ - 2000 мб.
151*3=453 мб.
Поместится :)
Program n1;
var st: string;
i,k: integer;
begin
st:='абракадабра';
k:=0;
for i:=1 to st.Length do
if st[i]='а' then k:=k+1;
writeln('в этом слове ',k,' букв а');
end.