Заполните массив случайными числами в диапазоне 0..100 и подсчитайте отдельно среднее отдельно среднее значение все элементов, меньших 50, и среднее значение все элементов, которые больше или равны 50 (паскаль).
Program q; const N=10; //количество элементов массива var a:array[1..N] of integer; b,c,d:integer; begin randomize; d:=0; c:=0; for b:=1 to N do a[b]:=random(100); for b:=1 to N do if(a[b]<50)then begin c:=c+1; d:=d+a[b]; end; writeln(d/c); d:=0; c:=0; for b:=1 to N do a[b]:=random(100); for b:=1 to N do if(a[b]>=50)then begin c:=c+1; d:=d+a[b]; end; write(d/c); end.
Rem BASIC-256 cls errors = 0 print "Введите текст > ";
rem Пользователь вводит текст input a$
rem Перебираем все буквы с начала и до предпоследней for i=1 to length(a$)-1
rem Если встречаем букву Ч или Щ if mid(a$, i, 1) = "ч" or mid(a$, i, 1) = "щ" then
rem Тогда проверяем следующую за ней букву. rem Если это буква я, тогда подсчитываем очередную ошибку if mid(a$, i + 1, 1) = "я" then errors = errors + 1 end if
rem Переходим к следующей букве next i
rem Вывод результата print "Количество ошибок в тексте "; print errors
const N=10; //количество элементов массива
var
a:array[1..N] of integer;
b,c,d:integer;
begin
randomize;
d:=0;
c:=0;
for b:=1 to N do
a[b]:=random(100);
for b:=1 to N do
if(a[b]<50)then
begin
c:=c+1;
d:=d+a[b];
end;
writeln(d/c);
d:=0;
c:=0;
for b:=1 to N do
a[b]:=random(100);
for b:=1 to N do
if(a[b]>=50)then
begin
c:=c+1;
d:=d+a[b];
end;
write(d/c);
end.