// 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.
Добрый день, это краткий формат вывода данных.
Тот поступает неправильно. Но это общепринятая версия. Можно писать вирусы и из добрых побуждений. Но чаще всего их пишут из не добрых побуждений.
Например. Самые частопоподающиеся вирусы, это трояны. Это самы распростоненный вирус. Да. Он плохо влияет на компьютер. И его пишут либо от скуки, и желания навредить кому то, либо целенаправленно. Но в любом случае, это плохо.
Хорошие вирусы, как я думаю, то это те вирусы, которые для своего беззаботного существования, удаляют все другие вирусы с компьютера. Да. Если этот вирус не обнаружить, и не удалить. То он нанесет урона во много раз больше.
Но в итоге можно сказать. Что тот кто пишеь вирусы. Поступает плохо, тем, что мешает другим пользователям нормально работать. А в некоторых случаях, и лишает их самого компьютера.
<span># Работоспособность проверена
x = int(input())
if x<-1:
y = -<span>1
</span>elif x>-1:
y = x
else: y = <span>1
</span>print(y)
</span>
Высказывание-это предложение на любом языке,содержание которого можно однозначно определить как истинное или ложное.
ПОБУДИТЕЛЬНЫЕ ИЛИ ВОПРОСИТЕЛЬНЫЕ ПРЕДЛОЖЕНИЯ ВЫСКАЗЫВАНИЯМИ НЕ ЯВЛЯЮТСЯ!
Высказывания могут строиться с использованием знаков различных языков.
Следовательно,высказываниями являются: 1,4,12,15.