1. Информатика
  2. Составьте програму которая

Составьте програму которая заполнят массив a[1..2] случайными целыми числами в диапозоне от 0 до 2 и выводит на экран количество равных элементов равных 1

pasagilazutdino pasagilazutdino    3   16.06.2019 06:01    0

Ответы
Vartur203 Vartur203  13.07.2020 01:44
Program enot;
Var a: array [1..2] of integer;
 i:integer;
begin
for i:= 1 to 2 do
begin
a[i]:=random(3);
writeln(a[i]);
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Efimenko34 Efimenko34  29.09.2019 21:20
Составьте разветвляющуюся программу в паскале: на автобазе стоят весы. если машина легче 15 тонн, то недогруз. если больше 30 тонн, то перегруз. иначе норма....
leksutin1 leksutin1  29.09.2019 21:20
2)сколько мбайт займёт учебник, в котором 530 страниц, но каждой 90 строк по 70 символов (1 символ=6 бит)?...
Miliosha Miliosha  29.09.2019 21:20
Сколько мбайт займет учебник,в котором 530 страниц,на каждой 90 строк по 70 символов?...
amulina2015 amulina2015  29.09.2019 20:14
Какое устройство необходимо для соединения компьютера через телефонную линию​...
arsenmalhasan20 arsenmalhasan20  22.08.2019 05:00
Значение слова и словосочетания 2 б класс...
Оарп Оарп  22.08.2019 05:00
Плз перевести введенный номер месяца года (1,) в его название (январь,)...
Матюха2005 Матюха2005  22.08.2019 05:00
Дан текст программы с ошибками. исправьте ошибки в программе. что выведется на экран в результате выполнения программы? programm qq; war a,b,c - integer, x: real; bigin a=7,...
ЮлиLove ЮлиLove  22.08.2019 05:00
Значение слова словосочетание 2б класс...
Orlolo Orlolo  23.09.2019 17:01
Кдополнительным устройствам ввода-вывода относятся: 1) принтер 4) сканер 2) клавиатура 5) манипулятор мышь 3) модем...
manetsevap010xz manetsevap010xz  23.09.2019 17:01
Дан массив из 10-ти элементов. 23, 345, 47, 225, 15, 786, 650, 32, 9, 110. написать программу, которая находит и выводит на печать сумму четных чисел. ответ: 786+650+32+110=1578....

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