Tryelle.doc
seppe.ddp
xleore.domen
boenge.doom
lelle.dee
тоже делал это задание. поставили 5 =)
Удачи!
var
a: array [1..10] of integer;
i,count:integer;
begin
count:=0;
for i:=1 to 10 do
begin
read(a[i]);
if a[i]>0 then inc(count);
end;
writeln(count);
end.
Var a,b,x:real;
begin
write('Введите коэффициенты а и b: ');
readln(a,b);
x:=-b/a;
writeln('Ответ: x=',x);
<span>end. </span>
обьективность – 6
достоверность – 5
актуальность – 3
полезность – 2
понятность –1
полнота – 4
где цифры – номера утверждений сверху вниз в втором стоблце