Сформировать массив a из n случайных чисел в диапазоне от -100 до 100(число n вводится с клавиатуры, его значение не больше 20). найти сумму всех положительных четных элементов.в паскале
Var a,b,c,i:integer; d:array [1..1000] of integer; begin randomize; writeln('введите число'); readln(a); for i:=1 to a do begin d[a]:=random(-100,100); writeln(d[a]); if (d[a]>0) and (d[a] mod 2 = 0) then c:=c+d[a]; end; writeln('ответ : ',c); end.
Ну практически во всех операционных системах имеется одноименная команда ping. Вводится эта команда в терминале, эмуляторе терминала, консоли, командной строке и т.п. Пример:
PING 192.168.1.24 (192.168.1.24): 56 data bytes 64 bytes from 192.168.1.24: icmp_seq=0 ttl=64 time=2.035 ms 64 bytes from 192.168.1.24: icmp_seq=1 ttl=64 time=0.581 ms 64 bytes from 192.168.1.24: icmp_seq=2 ttl=64 time=0.725 ms 64 bytes from 192.168.1.24: icmp_seq=3 ttl=64 time=0.561 ms
У меня в сети нет хоста с адресом 192.168.104.1, поэтому продемонстрировал работу программы на имеющемся хосте.
Если хоста с таким адресом нет или он не отвечает, то получим такой вывод работы программы:
PING 192.168.104.1 (192.168.104.1): 56 data bytes Request timeout for icmp_seq 0 Request timeout for icmp_seq 1 Request timeout for icmp_seq 2 Request timeout for icmp_seq 3 Request timeout for icmp_seq 4
d:array [1..1000] of integer;
begin
randomize;
writeln('введите число');
readln(a);
for i:=1 to a do begin
d[a]:=random(-100,100);
writeln(d[a]);
if (d[a]>0) and (d[a] mod 2 = 0) then
c:=c+d[a];
end;
writeln('ответ : ',c);
end.