Program p1; const N=10; var i,max,sum:integer; a:array[1..10] of integer; begin randomize; max:=0; sum:=0; for i:=1 to N do a[i]:=1+random(10); for i:=1 to N do write(a[i],' '); for i:=1 to N do if (a[i]>max) then max:=a[i]; writeln; writeln('Максимальное число: ',max); for i:=1 to N do if(a[i]=max) then sum:=sum+1; write('Количество максимальных чисел: ',sum); end.
После рандомного выбора планеты вывести эту переменную: print(planet)
import random planets = ['Меркурий', 'Венера', 'Земля', 'Марс', 'Юпитер', 'Сатурн', 'Уран', 'Нептун'] planet = random.choice(planets) print(planet) print('Какую планету я загадал?') answer = input() if answer == 'Плутон': (тут пробел)print('Плутон уже не считается планетой.') elif answer not in planets: (пробел)print('Да это же вообще не название планеты Солнечной системы.') elif answer == planet: (пробел)print('*** Верно! *** Это', answer) else: (пробел)print('Неверно!')
По горизонтали: 1. Механическое устройство ввода, преобразующее движение в сигнал(мышь) 2. Самое используемое из кнопочных устройств ввода (клавиатура) 3. Какой информационный процесс обеспечивает микрофон?(ввод) 4. Главные составляющие компьютера: оперативная память, материнская плата и...(процессор) 5.Объявление переменной и присваивание ей определённого значения-это...(инициализация) По вертикали: 1. Какой информационный процесс обеспечивают динамики? (вывод) 2. Как иначе называется оперативная память? (озу) 3. Какой информационный процесс обеспечивает носитель информации?(хранение) 4. Язык программирования, созданный Клаусом Виртом.(Паскаль) 5. Устройство выполнять заданную, чётко определённую изменяемую последовательность операций(компьютер)
const N=10;
var i,max,sum:integer;
a:array[1..10] of integer;
begin
randomize;
max:=0;
sum:=0;
for i:=1 to N do a[i]:=1+random(10);
for i:=1 to N do write(a[i],' ');
for i:=1 to N do
if (a[i]>max) then max:=a[i];
writeln;
writeln('Максимальное число: ',max);
for i:=1 to N do
if(a[i]=max) then sum:=sum+1;
write('Количество максимальных чисел: ',sum);
end.