Если не видно на скриншоте (Я правильно понял,как нужно сделать?)
1)
Program v1;
var a:array[1..15]of integer;
i,n,kol:integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(70)+10;
write('Значение матрицы: ');
for i:=1 to 15 do write(a[i]:5); writeln;
kol:=0;
for i:=1 to 15 do
if a[i]>50 then kol:=kol+1;
writeln(kol);
end.
2)
Program v1;
var a:array[1..20]of integer;
i,n,kol:integer;
begin
randomize;
for i:=1 to 20 do a[i]:=random(100)+50;
write('Значение матрицы: ');
for i:=1 to 20 do write(a[i]:5); writeln;
kol:=0;
for i:=1 to 20 do
if a[i]<100 then kol:=kol+1;
writeln('Количество элементов массива, значение которых меньше 100: ',kol);
end.
Hi mister,
Я рисовал (за рисовку извиняюсь, буду стараться лучше, просто так нагляднее)
Задание 2:
Сейчас распишу тебе сюда 1 задачу (она будет и с фоткой, другие все решение на фотке, чтобы ты просто понимал как делать)
У нас в дано сказано что первая должна быть гласная.
Т.е из наших букв Е,Г,Э мы находим гласные - их 2 штуки (Е и Э)
Т.е на первом месте будет 2 возможные, а далее просто все остальные наши буквы.
Т.е 3 и еще раз 3. (все у нас получится 2*3*3), ты можешь спросить почему именно столько раз, ответ прост, нам просто дали условие 'Сколько можно составить слов длиной в 3 символа'
Это значит, если бы нам дали условие '....длинной в 4 символа...', мы бы просто умножили еще раз на 3, и все! Все остальные задачи, аналогично!
Задание 4:
У тебя нету полного условия, у тебя сказано, что слова из 5 букв, а показано только 4! решить не смогу.
Задание 5:
ответ: 144 (+ доп условие. Нет, порядок цветов не имеет значение.)
Источник: Мозг
