petrosyan35
?>

Дан алгоритм. Определить, что он делает, и добавьте текст внутри ‘ ‘ в команды вывода в конце алгоритма. Program test; Const N=20; Var b :array [1..N] of Integer; i, min1, min2, p1, p2 :Integer; Begin For i:=1 to N do begin b[i]:=random(80)+20; write(b[i]:3); end; writeln; min1:=b[1]; min2:=b[1]; For i:=1 to N do Begin If (b[i] mod 2<>0) and (b[i] begin min1:=b[i]; p1:=i; end; If (b[i] mod 2=0) and (b[i] begin min2:=b[i]; p2:=i; end; end; Writeln(' ', min1, ' ', p1); Writeln(' ', min2, ' ', p2); If p1>p2 then Writeln(' ', min2, ' ') else Writeln(' ', min1, ' ') End. Паскаль

Информатика

Ответы

Константин

Во время ВОВ сложные технические и криптографические средства зашиты информации стали во многом ключевыми, ведь ценность информации возросла кратно. К июню 1941, когда немецкие армии вторглись на территорию СССР, наша система защиты государственной тайны была практически полностью сформирована. Она успешно выполняла целый ряд поставленных перед ней задач. От любых иностранных разведок надежно защищались все информационные ресурсы: мобилизационные, технические, военные, политические, идеологические и природные.

Sergeevich-irina

Компьютерные технологии всё глубже проникают во все сферы человеческой деятельности. Информатизация и компьютеризация требуют от людей новых навыков, новых знаний и нового мышления, призванных обеспечить адаптацию к условиям и реалиям компьютеризированного общества и обеспечить ему достойное место в этом обществе. Поэтому нельзя не согласиться с У. Мартином в том, что информатизация оказывает влияние на образ и качество жизни всех членов общества как на индивидуальном, так и на организационном уровне, на рабочем месте и в быту. Хорошо это или плохо, но она, пишет автор, представляет собой силу, которая не просто трансформирует жизнь целых сообществ, но перестройке самого «контекста отношений между людьми».

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Дан алгоритм. Определить, что он делает, и добавьте текст внутри ‘ ‘ в команды вывода в конце алгоритма. Program test; Const N=20; Var b :array [1..N] of Integer; i, min1, min2, p1, p2 :Integer; Begin For i:=1 to N do begin b[i]:=random(80)+20; write(b[i]:3); end; writeln; min1:=b[1]; min2:=b[1]; For i:=1 to N do Begin If (b[i] mod 2<>0) and (b[i] begin min1:=b[i]; p1:=i; end; If (b[i] mod 2=0) and (b[i] begin min2:=b[i]; p2:=i; end; end; Writeln(' ', min1, ' ', p1); Writeln(' ', min2, ' ', p2); If p1>p2 then Writeln(' ', min2, ' ') else Writeln(' ', min1, ' ') End. Паскаль
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

alenkadon6
Nikolaevna Malika1511
Femida76
Yurevna-Anatolevna
randat887040
Popova838
abroskin2002
gusrva3001
brakebox
turoverova5
Дмитрий Бундин
yuraotradnov
magazin3000
georgegradoff122
ibswoklol1362
▲