Дан массив из 25 элементов, заполненный случайным образом, из указанного промежутка (-10;10). Найти а кол-во элементов кратных 3 и сумму положительных
5-9 класс
|
элементов. Написать на паскале
var a:array[1..20]of integer;
i,s,k:integer;
begin
write('massiv:');
for i:=1 to 20 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
for i:=1 to 20 do
begin
if a[i] mod 2=1 then k:=k+1;
if a[i]>0 then s:=s+a[i];
end;
write('kratnih trem:',k,' summa polozhit:',s);
end.
Другие вопросы из категории
заданы величины x,y действительного типа. написать программу обмена значений величин.использовать вспомогательные величины нельзя.
на просмотр одной уходит 7 секунд!
помогите плиз!!!
програму писать в PascalABC
Читайте также
сначала задаются, а затем меняются.
For i:=0 to 10 do
A[i]:=i;
t:=A[0];
for i:=1 to 10 do
A[i-1]:=a[i];
A[10]:=t
Чему будут равны элементы этого массива?
1) 10 10 10 10 10 10 10 10 10 10
2)1 2 3 4 5 6 7 8 9 10 0
3) 0 0 0 0 0 0 0 0 0 0
4) 1 2 3 4 5 6 7 8 9 10 1
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
10-му элементу присвоить значение 13. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.