Нужна с по массивам. паскаль 1)вы создаете массив из 100 элементов, содержащий 100 чисел (вводится случайные числа). вывести массив, содержащий только положительные четные числа из этого диапазона. 2)даны целые числа a1, a2, … a50. (массив заполняется случайными числами). найти сумму тех элементов массива, которые кратны 3.
1)var a,b:array[1..101] of longint;i,n,k:integer;beginfor i:=1 to 100 do a[i]:=random(128000)-64000;for i:=1 to 100 do beginif a[i]>0 then begin b[i]:=a[i];inc(k);end;if a[i]<0 then begin while a[i]>0 doa[i]:=a[i+1];end;end;for i:=1 to k doif b[i]<>0 thenwriteln(b[i]);end.
2)var a:array[1..50] of integer;i,k:integer;beginfor i:=1 to 50 do a[i]:=random(64000)+1;//for i:=1 to 50 do if a[i] mod 3 =0 then writeln(a[i]); если хотите посмотреть на эти числа убрать //for i:=1 to 50 do if a[i] mod 3 =0 then k:=k+a[i];write(k);end.