Из одномерного числового массива a длинной n получить массив b , заменив все нулевые элементы - единицами. подсчитать число замен. вывести на экран массивы a и b и ответ на вопрос
Паскаль: program special;const n=15; var i: integer;A: array [1..n] of integer;B: array [1..n] of integer;beginrandomize;for i:=1 to n do A[i]:=random(5);for i:=1 to n do beginif A[i]=0 then b[i]:=1 else B[i]:=A[i];end;for i:=1 to n do write(A[i],' ');writeln;for i:=1 to n do write(B[i],' ');end.
IP-адрес (aй-пи адрес, сокращение от англ. Internet Protocol Address) — уникальный идентификатор (адрес) устройства (обычно компьютера), подключённого к локальной сети или интернету. IP-адрес представляет собой 32-битовое (по версии IPv4) или 128-битовое (по версии IPv6) двоичное число. Удобной формой записи IP-адреса (IPv4) является запись в виде четырёх десятичных чисел (от 0 до 255), разделённых точками, например, 192.168.0.1. (или 128.10.2.30 — традиционная десятичная форма представления адреса, а 10000000 00001010 00000010 00011110 — двоичная форма представления этого же адреса). IP-адреса представляют собой основной тип адресов, на основании которых сетевой уровень протокола IP передаёт пакеты между сетями. IP-адрес назначается администратором во время конфигурирования компьютеров и маршрутизаторов.
URL (англ. Uniform Resource Locator) — единообразный локатор (определитель местонахождения) ресурса. На английский манер произносится как [эо́рл], по-русски чаще говорят [у-эр-э́л] или [урла́]. Ранее назывался Universal Resource Locator — универсальный локатор ресурса. URL — это стандартизированный записи адреса ресурса в сети Интернет. Изначально локатор URL был разработан как система для максимально естественного указания на местонахождения ресурсов в сети. Локатор должен был быть легко расширяемым и использовать лишь ограниченный набор ASCII-символов (к примеру, пробел никогда не применяется в URL) для представления любой кодировки. В связи с этим, возникла следующая традиционная форма записи URL:
В этой записи: 1) схема - схема обращения к ресурсу, в большинстве случаев имеется в виду сетевой протокол 2) логин - имя пользователя, используемое для доступа к ресурсу пароль - пароль, ассоциированный с указанным именем пользователя 3) хост - полностью прописанное доменное имя хоста в системе DNS или IP-адрес хоста в форме четырёх десятичных чисел, разделённых точками. 4) порт - порт хоста для подключения. 5) URL-путь - уточняющая информация о месте нахождения ресурса (зависит от протокола)
program r; var a:array[0..8] of integer=(-6,7,45,-12,2,7,-15,0,64); l,i,sum:integer;
begin; for i:=0 to 8 do if a[i]>0 then begin; sum:=sum+a[i]; l:=l+1; end; for i:=0 to 8 do writeln('A[',i,'] = ', a[i]); write('Сумма положительных элементов равна ',sum,', а из количество ',l); end.
Второе:
program t; var d:array [0..40] of integer; l,x:integer;
begin; for x:=0 to 40 do begin; d[x]:=45*x+15; if d[x] mod 2 = 1 then l:=l+1; end; write('Кол-во нечётных элементов ',l); end.
Третье:
program y; var p:array [0..25] of real; k:integer; avg:real; begin; for k:=0 to 25 do begin; p[k]:=7*k+3*k/15; avg:=avg+p[k]; end; avg:=avg/26; write('Среднее значение элементов массива ', avg); end.
program special;const n=15; var i: integer;A: array [1..n] of integer;B: array [1..n] of integer;beginrandomize;for i:=1 to n do A[i]:=random(5);for i:=1 to n do beginif A[i]=0 then b[i]:=1 else B[i]:=A[i];end;for i:=1 to n do write(A[i],' ');writeln;for i:=1 to n do write(B[i],' ');end.