Знать бы, какой ввод данных
пусть он будет с клавиатуры, массив А из оценок N учеников
for i:=1 to N do begin
sum:=sum+A[i]; {это для среднего балла}
if (A[i]=4) or (A[i]=5) then
k1:=k1+1; {счетчик отличников-хорошистов}
if A[i]=2 then
k2:=k2+1; {счетчик двоечников}
end;
writeln('Количество учеников, написавших на 4 и 5: ', k1);
if k2>0 then
writeln('Двоечники есть')
else writeln('Двоечников нет');
writeln('Средний балл: ', sum/N:3:2);
end.

0 0

4 года назад

Ответ и объяснение пожалуйста!!! :прочти стихотворение старикова.а и определи возраст девочки. СТРАННАЯ ДЕВОЧКА Ей было тысяча

АннеТа1987 [7]

Этой девочке было 12 лет.

0 0

4 года назад

Дан одномерный массив заполненный двузначными числами найти наибольший элемент массива и наименьший.поменять их местами и новый

Виктори по жизни

Var
n, i, mn, mx:integer;
a:array [1..10] of integer;
begin
randomize;
writeln('Ishodnii massiv');
for i:=1 to 10 do
begin
a[i]:=random(90)+10;
write(a[i],' ');
end;
writeln();
mn:=1; mx:=1;
for i:=1 to 10 do
begin
if a[mn]>a[i] then mn:=i;
if a[mx]<a[i] then mx:=i;
end;
n:=a[mn];
a[mn]:=a[mx];
a[mx]:=n;
writeln('Massiv posle obrabotki');
for i:=1 to 10 do
write(a[i],' ');
writeln();
end.

0 0

3 года назад

1024 гбайта-... бит1024байта-... бит1024кбайта-... бит

Никусичечка

1024байта - 1024*8=8192 бит
1024 кбайта - 8192000 бит
1024 гбайта - 8192000000000 бит

0 0

4 года назад

Постройте таблицу истинности: (х*у)*х

Постройте таблицу истинности: (ху)х