Устоновите соответствия: а) веб-сервис 1) обеспечивает обмен файлами между компьютерами б) ip-телефония 2) используется для организации телефонных разговоров в) электронная почта 3) обеспечивает пересылку электронных писем г) службы доступа к файлам 4) предоставляет возможности для поиска сведений в интернете д) поисковые службы 5) предоставляет доступ к гипертекстовых документов
164
499
Ответы на вопрос:
program massive;
uses crt;
const n = 10;
var
a: array [1..n] of integer;
i: integer;
x: integer;
begin
randomize;
for i: = 1 to n do
begin
a[i] : = random(101);
a[i] : = a[i] - 50;
end;
clrscr;
writeln('massive: ');
for i: = 1 to n do
write(a[i]: 4);
writeln;
readln;
for i: =1 to n do
if (a[i] > 0) then x: =x+1;
write ('x = ', x);
end.
Популярно: Информатика
-
fsychih4611.12.2022 00:31
-
tolikstrikashi26.12.2020 11:43
-
Police22224.07.2021 00:52
-
АминаКурбанова1715.04.2020 23:16
-
vikabelaua11416.12.2021 07:49
-
Оля666Olya09.04.2021 10:29
-
ЛимАнель26.01.2020 17:56
-
вова95331.10.2020 13:33
-
неведимка1710820.09.2021 18:37
-
2Alinochka219.10.2022 16:20