Var
i:integer;
a,b:real;
Begin
for i:= 1 to 5 do Begin
a:=random(50);
write(a,' ');
b:=b+a;
End;
Writeln;
write('Их средн арифм = ',b/5);
End.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;
procedure OutLightGreen(n:integer);
begin
var OldColor:=FontColor;
SetFontColor(clLightGreen);
Write(n:5);
SetFontColor(OldColor)
end;
begin
var a:=MatrixRandom(10,14,-180,320);
var m:=ReadInteger('n=');
Writeln;
SetFontColor(clWhite);
Font.Style:=fsBold; Font.Name:='Courier';
Brush.Color:=clBlack; Window.Clear(clBlack);
var k:=0;
for var i:=0 to 9 do begin
for var j:=0 to 13 do
if a[i,j]>m then begin
Inc(k); OutLightGreen(a[i,j]) end
else Write(a[i,j]:5);
Writeln
end;
SetFontColor(clRed);
Writeln('Количество элементов равно ',k)
end.
1)-0,1,2,3,4,5,6,7,8,9.
2)69-105
(-123)-(-173)
(-169)-(-251)
78-116
3)(-19095)-(-4A97)
6994-1B52
(-88007)-(-157C7)
4)б) и в)
<span>1.В Первую мировую войну впервые применили химическое оружие.
Во Великой Отечественной войне победу одержал Советский Союз. 2.У кошки четыре ноги.
Плоские черви - паразиты.
3. Всякий равносторонний треугольник есть равноугольный треугольник.
Прямоугольник с равными сторонами есть квадрат.
4.Русский язык - один из славянских языков.
Пунктуация изучает знаки препинания.
5. Пушкин - великий русский поэт.
Достоевский - один из популярных писателей.
6. Информатика жиздется на математике.
Компьютер облегчил жизнь человека.</span>
