Если не видно на скриншоте (Я правильно понял,как нужно сделать?)
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.
Информация – это совокупность каких-либо сведений, данных, передаваемых устно (в форме речи), письменно (в виде текста, таблиц, рисунков, чертежей, схем, условных обозначений)либо другим например, с звуковых или световых сигналов, электрических и нервных импульсов, перепадов давления или температуры и т.д.).
В середине 20 века термин «информация» стал общенаучным понятием, включающим обмен сведениями между людьми, человеком и автоматом (ЭВМ), автоматом и автоматом, обмен сигналами в животном и растительном мире, передачу признаков от клетки к клетке, от организма к организму.
Теоретические и практические вопросы, относящиеся к информации, изучает информатика.
