program fantscrin;
const n =15;
var i,s: integer;
a: array [1..n] of integer;
begin
for i: =1 to n do
a[i]: =random(30);
for i: =1 to n do
write(a[i], ' ');
writeln('');
s: =0;
for i: =1 to n do
s: =s+a[i];
writeln(s);
end.
program fantscrin;
const n =20;
var i,s: integer;
a: array [1..n] of integer;
begin
for i: =1 to n do
a[i]: =random(5);
for i: =1 to n do
write(a[i], ' ');
writeln('');
s: =0;
for i: =1 to n do
if(a[i]=0) then s: =s+1;
writeln(s);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Дан список слов кран склон кратер кража 1 в слове не пять букв 2 в слове две гласных и четыри буквы согласных 3 в слове две гласных или четыри буквы согласных 4 в слове четыри буквы и не две буквы согласных