// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 begin var n:=ReadInteger('n='); var x:=ArrRandom(n,-5,20); x.Println; if x.Min<0 then x:=x.Select(e->abs(e)).ToArray; x.Println end.
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 const nn=50; var x:array[1..nn] of integer; i,m,n:integer; begin Write('n= '); Read(n); Randomize; x[1]:=Random(26)-5; m:=x[1]; Write(x[1],' '); for i:=2 to n do begin x[i]:=Random(26)-5; if x[i]<m then m:=x[i]; Write(x[i],' ') end; Writeln; if m<0 then begin for i:=1 to n do begin x[i]:=abs(x[i]); Write(x[i],' ') end; Writeln end end.
Ира съел(a) молоко.
#Programm created by lagov Gleb
#This programm is generator random wordsXD
name = ['Глеб', 'Артем', 'Ира', 'Варя', 'Андрей']
glagol = ['выпил(a)', 'съел(a)', 'купил(а)', 'укусил(а)', 'пнул(а)']
predmet = ['молоко', 'дверь', 'велосипед', 'лестницу', 'XBOX', 'PlayStation']
from random import randint
def pick(words):
num_words = len(words)
num_picked = randint(0, num_words - 1)
word_picked = words[num_picked]
return word_picked
print(pick(name), pick(glagol), pick(predmet), end='.\n')
input()
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var n:=ReadInteger('n=');
var x:=ArrRandom(n,-5,20); x.Println;
if x.Min<0 then x:=x.Select(e->abs(e)).ToArray;
x.Println
end.
Тестовое решение
n= 15
14 18 4 17 9 6 13 13 12 -1 13 5 11 -2 14
14 18 4 17 9 6 13 13 12 1 13 5 11 2 14
2. Школьная версия программы
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
const
nn=50;
var
x:array[1..nn] of integer;
i,m,n:integer;
begin
Write('n= '); Read(n);
Randomize;
x[1]:=Random(26)-5; m:=x[1];
Write(x[1],' ');
for i:=2 to n do begin
x[i]:=Random(26)-5;
if x[i]<m then m:=x[i];
Write(x[i],' ')
end;
Writeln;
if m<0 then begin
for i:=1 to n do begin
x[i]:=abs(x[i]);
Write(x[i],' ')
end;
Writeln
end
end.
Тестовое решение
n= 15
9 3 14 4 9 2 1 6 9 19 20 8 14 -3 9
9 3 14 4 9 2 1 6 9 19 20 8 14 3 9
Подтверждает довольно популярное мнение о том, что в школьной информатике многое давно пора менять...
Зачем учить писать длинно и сложно?