Пример В)
uses crt;var f,a,b,c:real;beginwriteln ('Введите число A');readln (a);writeln ('Введите число B');readln (b);writeln ('Введите число C');readln (c);F:=(sqrt(sqr(b)*2)-4*a*c);writeln('Ответ: ',f:2:1);end.
Program One;
var
a, b, c: real;
count : byte;
begin
readln (a, b, c);
count := 0;<span>
if a < 0 then inc (count);</span>
if b < 0 then inc (count);
if c < 0 then inc (count);
wrireln (count);
<span>end.
Надеюсь на лучший ответ:)</span>
// PascalABC.NET 3.0, сборка 1156 от 30.01.2016
function Avg(a:array[,] of integer):real;
begin
var s:=0; var k:=0;
foreach var e:integer in a do
if e>0 then begin s+=e; Inc(k) end;
if k>0 then Result:=s/k else Result:=1e-100;
end;
begin
var A:=MatrixRandom(4,4,-50,50); Writeln(A);
Writeln('Среднее арифметическое положительных равно ',Avg(A):0:3);
var B:=MatrixRandom(5,5,-30,30); Writeln(B);
Writeln('Среднее арифметическое положительных равно ',Avg(B):0:3);
var C:=MatrixRandom(4,5,-25,38); Writeln(C);
Writeln('Среднее арифметическое положительных равно ',Avg(C):0:3);
end.
<u><em>Тестовое решение:</em></u>
[[35,35,5,-47],[14,34,35,-13],[25,-5,35,-29],[-7,10,-12,12]]
Среднее арифметическое положительных равно 24.000
[[-12,-17,-10,19,14],[20,17,-27,-2,16],[-3,-21,30,2,10],[5,-3,-17,-3,18],[0,-26,29,1,-22]]
Среднее арифметическое положительных равно 15.083
[[-5,-11,17,-4,15],[15,17,-24,36,15],[-8,-3,-22,28,-25],[-21,6,12,31,-1]]
Среднее арифметическое положительных равно 19.200
Использовать Робот
алг
нач
нц пока слева свободно
влево
кц
нц пока слева стена
закрасить
вверх
кц
вверх
нц пока слева стена
закрасить
вверх
кц
вверх
влево
влево
вниз
нц пока справа стена
закрасить
вниз
кц
вниз
нц пока справа стена
закрасить
вниз
кц
<span>кон</span>