3. Вказати змінній a таке значення: Lorem (табуляція) Ipsum is simply dummy text of the printing and typesetting industry. Lorem (табуляція) Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type and scrambled it to make a type specimen book. It has survived not only five centuries, but also the leap into electronic typesetting, remaining essentially unchanged. It was popularised in the 1960s with the release of Letraset sheets containing Lorem (табуляція) Ipsum passages, and more recently with desktop publishing software like Aldus PageMaker including versions of Lorem (табуляція) Ipsum.
4. Відформатувати текст
а) замість (табуляція) вказати символ табуляції
б) кожне речення вивести з нового рядка, вказавши необхідну послідовність
в) вивести змінну а на екран
127
421
Ответы на вопрос:
var c,i,z: integer;
mass,a: array[1..20] of integer;
q: real;
begin
writeln('элементы массива: ');
for i: =1 to 20 do
begin
mass[i]: =random(11);
write(mass[i],' ');
end;
writeln;
write('c=');
readln(c);
write('числа превосходящие с: ');
for i: =1 to 20 do
if (mass[i]> c) then
begin
inc(z);
a[z]: =mass[i];
write(mass[i],' ');
end;
for i: =1 to z do
begin
q: =q+a[i];
end;
writeln;
write('среднее арифметическое этих чисел=',q/z);
end.
Популярно: Информатика
-
VicktoriaGra14.02.2021 11:54
-
vladholyngha02.03.2023 03:26
-
pupsik10101007.06.2022 09:27
-
DeadlyCrawley17.02.2023 16:41
-
Lakensssss23.01.2022 13:38
-
даша1820065к10.08.2022 23:35
-
m1830302.12.2021 08:12
-
Sonyatchernits27.07.2022 18:58
-
uhanovauliana0508.01.2023 00:44
-
Настіяа14.01.2021 11:29