Учитель объявил оценки за контрольную работу. Сначала он назвал тех, кто получил пятёрки, потом тех, кому поставил двойки. Имена остальных он не назвал — значит, они получили средние оценки. Дана инфомация о двух учениках: имя, оценка (число), имя и оценка. Выведи имена всех, кто получил «3» или «4».
Ввод Вывод
Вася
4
Петя
2 Вася
Маша
3
Соня
4 Маша
Соня
// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
begin
var n:=10;
var a:=ArrRandom(n,1,99); Print('A:'); a.Println;
var b:=ArrRandom(n,1,99); Print('B:'); b.Println;
var x:=a.Zip(b,(p,q)->p*q); Print('X:'); x.Println;
Writeln('min(X)=',x.Min)
end.
Тестовое решение:
A: 34 37 41 26 78 10 13 15 59 71
B: 70 49 56 94 79 25 72 54 39 34
X: 2380 1813 2296 2444 6162 250 936 810 2301 2414
min(X)=250
2. "Школьный вариант" (так учат в школе, чтобы жизнь медом не казалась, но может быть, что учителя сами не понимают современные технологии программирования):
// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
const
n=10;
var
a,b,x:array[1..n] of integer;
i,min:integer;
begin
Randomize;
Write('A: ');
for i:=1 to n do begin
a[i]:=Random(99)+1; Write(a[i],' ')
end;
Writeln;
Write('B: ');
for i:=1 to n do begin
b[i]:=Random(99)+1; Write(b[i],' ')
end;
Writeln;
Write('X: ');
min:=100*100; // больше максимального
for i:=1 to n do begin
x[i]:=a[i]*b[i]; Write(x[i],' ');
if min>x[i] then min:=x[i]
end;
Writeln;
Writeln('min(X)=',min)
end.
Тестовое решение:
A: 43 52 75 74 18 57 39 67 44 20
B: 33 16 36 34 65 9 42 51 79 36
X: 1419 832 2700 2516 1170 513 1638 3417 3476 720
min(X)=513
Басқа тілде оқу
Download PDF
Бақылау
Өңдеу
Ақпараттық қауіпсіздік — мемлекеттік ақпараттық ресурстардың, сондай-ақ ақпарат саласында жеке адамның құқықтары мен қоғам мүдделері қорғалуының жай-күйі.
Ақпаратты қорғауӨңдеу
Ақпаратты қорғау — ақпараттық қауіпсіздікті қамтамасыз етуге бағытталған шаралар кешені. Тәжірибе жүзінде ақпаратты қорғау деп деректерді енгізу, сақтау, өңдеу және тасымалдау үшін қолданылатын ақпарат пен қорлардың тұтастығын, қол жеткізулік оңтайлығын және керек болса, жасырындылығын қолдауды түсінеді. Сонымен, ақпаратты қорғау - ақпараттың сыртқа кетуінің, оны ұрлаудың, жоғалтудың, рұқсатсыз жоюдың, өзгертудің, маңызына тимей түрлендірудің, рұқсатсыз көшірмесін жасаудың, бұғаттаудың алдын алу үшін жүргізілетін шаралар кешені