Vitalevna
?>

Заполните массив случайными числами в диапазоне от 20 до 100 и подсчитайте отдельно число элементов с четными и нечетными значениями паскаль abcnet

Информатика

Ответы

самир1078
Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
os2854
Сочетание Ctrl + --> это прыжок на начало следующего слова.
Сочетание Ctrl + Del это удалить часть слова от курсора до пробела.
Если курсор стоит перед 1 буквой - удалится всё слово.
1) Нажимаем 2 раза Ctrl + --> и попадаем на скобку "(".
2) Нажимаем 6 раз Ctrl + Del и удаляем: скобку "(", 4 слова в скобках,
и скобку ")".
3) Получили "словможно". Теперь нужно нажать пробел, чтобы разделить слова: "слов можно"
ответ: 3) 1 клавишу и 8 сочетаний.
Как вы за компьютером работаете, если MS Word не знаете?
Дмитрий_Евлампиев518
Когда мы копируем рисунок в буфер, то он определенного размера.
Создадим второго слона. Для этого надо выполнить все 4 команды:
1,2,3,4.
Второй слон стал на 80% меньше первого.
Создадим третьего слона.
Если мы сейчас снова вставим слона из буфера (команда 3), то вставится первый слон, и команду 4 придется делать 2 раза, чтобы он стал на 80% меньше, чем второй слон.
Поэтому для третьего слона нужно выделить второго и опять проделать все 4 команды: 1,2,3,4.
Чтобы получить еще 6 слонов, нужно эти команды повторить 6 раз.
ответ: В) повторить (1,2,3,4; 6)

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Заполните массив случайными числами в диапазоне от 20 до 100 и подсчитайте отдельно число элементов с четными и нечетными значениями паскаль abcnet
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Казаков
михаил
Алина Ракитин1730
Низамов
dp199088206
treneva359
lebedevevgen
Васильев1028
Сороченкова-Александр
vrn3314
T91610933073266
DVOct33
kukoleva
Попов1946
pucha5261