Предмет: Информатика, автор: ladydelen

Срочно нужна помощь с задачами по массивам. Паскаль
1)Вы создаете массив из 100 элементов, содержащий 100 чисел (вводится случайные числа). Вывести массив, содержащий только положительные четные числа из этого диапазона.

2)Даны целые числа a1, a2, … a50. (массив заполняется случайными числами). Найти сумму тех элементов массива, которые кратны 3.

Ответы

Автор ответа: Аноним
0
в обоих случаях вы не указали какие числа, я использовал промежуток от -64000 до 64000
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.
Похожие вопросы
Предмет: Математика, автор: svistalskaavioletta2
Предмет: Русский язык, автор: glazunow999