//Немного приведения типов на сон грядущий.
а)d(real)+1(integer)=>real
б)a(integer)*d(real)=>real
в)a(integer)-2(integer)=>integer
г)15 mod 5(всегда возвращает integer)=>integer
д)a(integer)+b(integer)+c(integer)/n(real)=>real(т.к. дробь)
е)b(integer)/c(integer)*100(integer)=>real(т.к. дробь)
ж)(a(integer)+b(integer))*2(integer)-d(real)=>real
Знать бы, какой ввод данных
пусть он будет с клавиатуры, массив А из оценок 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.
Var a:array[1..8, 1..8] of integer;
max, i, j:integer;
begin
randomize;
max:=0;
for i:=1 to 8 do
for j:=1 to 8 do
a[i,j]:=random(200);
for i:=1 to 8 do
for j:=1 to 8 do
if i+j=9 then
begin
if a[i, j]>max then max:=a[i, j];
end;
for i:=1 to 8 do
begin
for j:=1 to 8 do
write(a[i, j]:5);
writeln;
end;
writeln('Максимальный элемент=', max);
<span> end.</span>
1)
program ex1;Var a,b:real;begin read(a,b); write(a-b);end.
2)
program ex1;Var a,b:real;begin read(a,b); write(a/b);end.
3)
program ex1;Var a,b:real;begin read(a,b); write((a+b)/2);end.
