Массив из 10 элементов заполнить случайными числами от - 3 до 4 включительно. найти сумму отрицательных элементов. заменить все положительные элементы нулями.определить количество нулевых элементов.
//Pascal var A: array[1..10] of integer; i, Count: byte; sum: integer; begin randomize; writeln('Сгенерированный массив'); for i := 1 to 10 do begin A[i] := random(8)-3; if A[i] < 0 then sum := sum + A[i]; write(A[i],' '); end; writeln; writeln('Сумма отрицательных элементов = ', sum); writeln; writeln('Измененный массив'); for i := 1 to 10 do begin if A[i] >= 0 then begin A[i] := 0; Count := Count + 1; end; write(A[i], ' '); end; writeln; writeln('Количество нулевых элементов = ', Count); end.
Август Кекуле Август Кекуле - немецкий химик мирового значения, открыл химическую формулу бензола. Его избрали почетным членом многие академии мира, с его мнением считались не только ученые, но и промышленники. Просмотров: 9437 Адольф фон Байер Адольф фон Байер - немецкий химик, анализируя обратный процесс, получение индиго путем окисления изатина, впервые сумел синтезировать индиго, сделав, таким образом, возможным его промышленное производство. Просмотров: 6398 Александр Михайлович Бутлеров Александр Михайлович Бутлеров - русский химик, открытая им теория химического строения служит теперь принципиальной основой всех без исключения современных разделов синтетической химии. Просмотров: 11279 Альфред Вернер Альфред Вернер - немецкий химик, открыл оптически активные неорганические изомеры - соединения кобальта, хрома, железа. Это было крупным успехом дальнейшего развития неорганической химии. Просмотров: 6849 Антуан Лоран Лавуазье Антуан Лоран Лавуазье — французский химик, объяснил факт горения, — целый мир явлений окисления, происходящих всегда и всюду — в воздухе, земле, организмах — во всей мертвой и живой природе. Просмотров: 8849
Ну если в кратце, то это: Построения политики информационной безопасности. Здесь следует рассматривать такие аспекты, как: 1. Защиту объектов информационной безопасности - это сервера, базы данных и электронная почта т.п. 2. Защита процессов, процедур и программ обработки информации - это защита сети предприятия, защита каналов передачи данных, защита систем управления базами данных и т.п. 3. Подавление побочных электромагнитных излучений - с целью не допускания обрыва связи и искажения передаваемых данных; 4. Ну и непосредственно организация управления системой защиты - установка, контроль, профилактика и т.п.
var
A: array[1..10] of integer;
i, Count: byte;
sum: integer;
begin
randomize;
writeln('Сгенерированный массив');
for i := 1 to 10 do
begin
A[i] := random(8)-3;
if A[i] < 0 then
sum := sum + A[i];
write(A[i],' ');
end;
writeln;
writeln('Сумма отрицательных элементов = ', sum);
writeln;
writeln('Измененный массив');
for i := 1 to 10 do
begin
if A[i] >= 0 then
begin
A[i] := 0;
Count := Count + 1;
end;
write(A[i], ' ');
end;
writeln;
writeln('Количество нулевых элементов = ', Count);
end.