Вопрос по информатике:
Срочно нужна помощь с задачами по массивам. Паскаль
1)Вы создаете массив из 100 элементов, содержащий 100 чисел (вводится случайные числа). Вывести массив, содержащий только положительные четные числа из этого диапазона.
2)Даны целые числа a1, a2, … a50. (массив заполняется случайными числами). Найти сумму тех элементов массива, которые кратны 3.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.11.2016 00:32
- Информатика
- remove_red_eye 10813
- thumb_up 13
Ответы и объяснения 1
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 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.
- 22.11.2016 21:10
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.