Писал с учётом очистки экрана. Тобишь модуль Uses Crt, если не проходили, то лучше удали эту строчку и "ClrScr".
Program G;
Uses Crt;
Const N=10;
Var i, count: integer; mass: array [1..N] of integer;
Begin
ClrSCr;
Count:=0;
For i:=1 to N do
Begin
Mass[i]:=Random(31)-15;
Write(Mass[i]:4);
End;
Writeln;
For i:=1 to N do
If mass[i]>0 then inc(count);
If count=0 then writeln('В массиве нету положительных чисел.')
Else writeln('Количество положительных чисел в массиве: ', count);
Readln;
<span> End.</span>
25
[0, 0, "a", 1]
[1, 1, "b", 2]
[1, 2, "bb", 3]
[2, 2, "b", 4]
[1, 3, "bbb", 5]
[2, 3, "bb", 6]
[3, 3, "b", 7]
[1, 4, "bbbb", 8]
[2, 4, "bbb", 9]
[3, 4, "bb", 10]
[4, 4, "b", 11]
[1, 5, "bbbbb", 12]
[2, 5, "bbbb", 13]
[3, 5, "bbb", 14]
[4, 5, "bb", 15]
[5, 5, "b", 16]
[0, 6, "abbbbba", 17]
[6, 6, "a", 18]
[6, 7, "aa", 19]
[7, 7, "a", 20]
[6, 8, "aaa", 21]
[7, 8, "aa", 22]
[8, 8, "a", 23]
[5, 9, "baaab", 24]
[9, 9, "b", 25]
#Ruby22
s = "abbbbbaaab"
n = 0
for r in 0...s.size
for l in 0..r
t = s[l..r]
if t.reverse == t
n += 1
p [l,r,t,n]
end
end
end
Program chik;
var a:array[1..1000]of integer;
n,i,s:integer;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
end;
s:=0;
for i:=1 to 5 do
begin
s:=s+a[i];
end;
a[5]:=s;
for i:=1 to n do
begin
write(a[i],' ');
end;
end.