информатика, даю 40 Периметр квадрата равен 24 см. Площадь квадрата равна Составьте блок-схему алгоритма решения поставленной задачи и дайте краткое пояснение.
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin var a:=MatrixRandom(10,10,-10,10); var sp:=0; var sn:=0; for var i:=0 to 9 do begin for var j:=0 to 9 do begin Write(a[i,j]:4); if a[i,j]>0 then Inc(sp) else if a[i,j]<0 then Inc(sn) end; Writeln end; Writeln('Положительных ',sp,', отрицательных ',sn) end.
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin var a:=ArrRandomReal(ReadInteger('Кол-во элементов: '),-10,10); a.Println; Writeln('Сумма положительных равна ',a.Where(x->x>0).Sum) end.
Пример Кол-во элементов: 8 -0.904254126783579 -6.85698384272725 -8.54558298296555 0.520270080547906 -6.12226872524352 -5.76991352987006 -8.2311904142756 -5.47438762871287 Сумма положительных равна 0.520270080547906
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin var a:=ArrRandomReal(ReadInteger('Кол-во элементов: '),2,3); a.Println; Writeln('Среднее значение равно ',a.Average) end.
Пример Кол-во элементов: 6 2.72211762318486 2.85016930887949 2.41644970626405 2.11135463933989 2.8477212129383 2.67084380549884 Среднее значение равно 2.60310938268424
begin
var a:=MatrixRandom(10,10,-10,10);
var sp:=0; var sn:=0;
for var i:=0 to 9 do begin
for var j:=0 to 9 do begin
Write(a[i,j]:4);
if a[i,j]>0 then Inc(sp)
else
if a[i,j]<0 then Inc(sn)
end;
Writeln
end;
Writeln('Положительных ',sp,', отрицательных ',sn)
end.
Пример
-2 4 5 10 3 7 -8 -1 -5 -9
-2 6 -3 8 10 9 -8 3 9 9
2 10 3 5 10 1 -9 4 -7 3
9 1 -3 -5 7 5 2 0 -7 3
2 1 10 -8 -8 6 -8 -3 -5 0
-2 -10 -7 9 -9 -1 -9 10 -10 -8
6 -1 -4 3 -7 7 -1 -8 -10 -5
-3 2 0 -5 -4 -10 -10 0 3 -7
-1 5 -2 4 -6 9 -3 -1 -7 -2
3 2 0 -10 8 -7 -5 -3 10 -5
Положительных 44, отрицательных 51