1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество.
5-9 класс
|
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
1)
Const N = 25;
Var m:array [1..N] of integer; i,S,k:integer;
begin
randomize;
for i:=1 to N do
m[i]:= random(50);
S:=0; k:=0;
for i:=1 to N do
if m[i] mod 2 =0 then begin
S:=S+m[i]; inc(k); end;
writeln('Summa= ',S,' kol-vo = ',k);
readln;
end.
Другие вопросы из категории
спор кто из них главнее
есть срочно!!!!!!информатика с 33 вопроса по 51 ну плиз ну очень надо мне ещё готовится к годовой контрольной по математике просто!
Читайте также
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
1).найти все четырехзначные числа,делящиеся на 27.
2).дан массив целых чисел,состоящий из 20 элементов.Заполнить его случайными числами и найти количество элементов массива. значения которых больше заданного числа и кратны 5.
1).найти все симметричные четырехзначные числа,делящиеся на 27.
2).дан массив целых чисел,состоящий из 20 элементов.Заполнить его случайными числами и найти количество элементов массива. значения которых больше заданного числа и кратны 5.
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.