Вопрос по информатике:
Заполните произвольными числами из промежутка от 0 до 20 целочисленный массив С размерностью 20 элементов и выведите его элементы на экран монитора через 3 пробела.
Сохраните программу и отправьте на проверку учителю
- 05.02.2018 03:54
- Информатика
- remove_red_eye 19051
- thumb_up 41
Ответы и объяснения 2
Var с:array[1..20] of integer;
m:integer;
begin;
randomize;
for m:=1 to 20 do
begin;
с[m]:=random(0,20);
write(с[m],' '); //самому отвратно так делать, но что поделаешь, десу
end;
end.
- 06.02.2018 02:15
- thumb_up 30
Uses crt;
var с:array[1..20] of integer;
m:integer;
begin
clrscr;
randomize;
for i:=1 to 20 do
begin;
с[i]:=random(20)+1;
write(с[i],' ' );
end;
readkey;
end.
- 07.02.2018 05:49
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.