1. Определите код буквы «R» и определите символ - вопрос №16536534112212 от masloshick 23.04.2023 14:59

Question

Информатика: 1. Определите код буквы «R» и определите символ с кодом 122. (1стр.) 2. Введите в компьютер четыре слова: «Кому», «Работать», «Тому», «добродетель», получите строку символов «Кому работать, затем добродетель» и распечатайте на экране. (2 шт.) 3. Создайте слово «рабочее место» из ранее введенных слов и распечатайте его на экране (2p.) 4. Сравните две строки символов «Для кого работает» и «Тогда добродетель» по длине и выведите наименьшую строку в указанном виде. (2 шт.) Меньшая строка = строка 5.

masloshick · Answer

Const n=15;
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
if a[i]>sr then write(i:3);
writeln;
end.

Пример:
Массив:
9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
2 3 10 11 13 14 15