Составьте программу которая заполняет массив a состоящая из 20 случайных целых чисел в диапазоне от 1 до 30 и выводит на экран элементы значения которых являются чётными и кратными трём . !
Var a: array[1..20] of integer; i: integer; begin for i:= 1 to 20 do begin a[i]:=random(30)+1; write(a[i],' '); end; writeln; for i:= 1 to 20 do if a[i] mod 6 = 0 then write(a[i],' '); end.
«Кто владеет информацией — тот владеет миром», — был убежден премьер-министр Великобритании Уинстон Черчилль, и вряд ли его можно упрекнуть в заблуждении. Обычно в качестве иллюстрации этого тезиса приводят пример с рыбалкой, когда знание о том, где можно наловить много рыбы, ценится выше, чем удочка. Увы, с тех пор, как британский премьер изрек бессмертные слова немало времени, и фигуральная вода, в которой водятся пресноводные, успела порядком помутнеть. На сегодняшний день информации в мире стало так много, что скорее уж миром владеет тот, кто владеет дезинформацией. А все остальные вынуждены бороться с информационными вирусами самостоятельно. Автор: Глядящий Вдаль
Фильтрующие программы: Из данных министерства связи следует, что несмотря на то, что многие родители в Израиле очень обеспокоены данной ситуацией, только 53% родителей считают интернет небезопасным местом, 67% родителей позволяют своим детям беспрепятственно пользоваться интернетом, а 53% родителей вообще не вмешиваются в то, каким образом их дети пользуются интернетом. Важно знать, что сегодня существуют программы, которые фильтруют информацию в интернете. Эти программы рассчитаны как на личный компьютер, так и на мобильный телефон. Они фильтруют оскорбительную и опасную для детей информацию, такую как порнография, тяжелое насилие и продажа наркотиков, и препятствуют тому, чтобы дети передавали свои личные данные, которые могут нанести вред им самим или их окружающим, не мешая при этом обычному пользованию интернетом и не замедляя работу компьютера. Эти программы легко достать и установить. Более того, по закону поставщики интернет услуг, включая операторов мобильной связи, обязаны предлагать своим абонентам эффективные услуги по фильтрации интернет сайтов и оскорбительной информации без дополнительной платы.
Const K = 13; Var A:array[1..K] of integer; i:integer; S:real; Begin Write('Исходный массив: '); For i:= 1 to K do Begin A[i]:=random(21)-10; Write(A[i],' '); End; WriteLn; {Первое задание:} For i:= 1 to K div 2 do S:=S+A[i]; WriteLn('S = ',S); {Второе задание:} S:=0; For i:= 1 to K do if i mod 2 = 0 then S:=S+A[i]; WriteLn('S = ',S); {Третье задание} S:=1; For i:= 1 to K do if i mod 2 <> 0 then S:=S*A[i]; WriteLn('S = ',S); {Четвёртое задание:} S:=0; For i:= 1 to K do if (A[i] mod 2 = 0)and(i mod 2 = 0) then S:=S+A[i]; WriteLn('S = ',S); End.
i: integer;
begin
for i:= 1 to 20 do begin a[i]:=random(30)+1;
write(a[i],' ');
end;
writeln;
for i:= 1 to 20 do
if a[i] mod 6 = 0 then write(a[i],' ');
end.