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

Составить программу на Паскале для обработки одномерного массива из 10 элементов. Значения элементов задать вводом с клавиатуры самостоятельно. Посчитать количество и напечатать номера элементов, которые больше 5.

Задание 2

Составить программу на Паскале, которая удалит все буквы «о» из текста, который состоит из 6 слов. Текст нужно придумать самостоятельно.

zhosik1alika zhosik1alika    2   09.04.2020 21:35    38

Ответы
GBNMK GBNMK  13.10.2020 00:45

// PascalABC.NET

begin

 // 1

 var a := ReadArrInteger('Введите 10 целых чисел:', 10);

 var b := a.Indices((v, i) -> v > 5);

 Println('Количество:', b.Count);

 Print('Номера:');

 b.Select(p -> p + 1).Println;

 // 2

 Readln;

 ReadString('Введите текст:').Replace('о', '').Print

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ЭЩЩКЕРЕЕЕ ЭЩЩКЕРЕЕЕ  06.06.2019 05:01
1)вывести все натуральные числа от 100 до 200 кратные 5 2) подсчитать общее кол-во делителей числа 100...
kuzyana kuzyana  07.05.2020 15:21
В текстовом редакторе по теме «Компьютерное представление текстовой информации» составьте ТЕСТ из 5 во к каждому во по три варианта ответов, один верный. Оформить тест как...
MagicalBiology MagicalBiology  09.04.2021 17:01
Створити цикл, який друкує на екрані парні числа, доки не дійде до твого віку.​...
meruert2001n1 meruert2001n1  09.04.2021 16:54
Определите, для чего предназначены данные команды блоков, запишите ответы в тетрадях.ФункцииКоманды блоковсекундговори. Привот отеченеМмм...думать2 секунддуха. Ммм...сказаПривет!...
долтг долтг  01.07.2019 06:20
Определите, может ли кирпич, имеющий форму прямоугольного параллелепипеда с ребрами a,b,c, пройти через прямоугольное отверстие со сторонами х и y (при этом стороны параллелепипеда...
nast20171 nast20171  01.07.2019 06:20
Pascal. сформировать квадратную матрицу a(nxn) , которую вывести. строки с отрицательным элементом на главной диагонали последовательно записать в файл . в конец файла дописать...
tolstykh2005ow2t1s tolstykh2005ow2t1s  12.09.2019 18:24
Подготовь сообщение об орбулакском сражении.(1643 год.) и выяснить, что было общего между орбулакским сражением и подвигом 300 спартанцев во главе с царем леонидом. : ) .это...
zaijiki zaijiki  12.09.2019 18:24
Потрібно скласти діалог між клієнтом і туроператором​...
asadhfdgj asadhfdgj  12.09.2019 19:20
Составить: уравнение прямой, которая проходит через точку (0; –3) и параллельна прямой у = 3х – 1....
yroslav120206 yroslav120206  12.09.2019 18:24
При сжигании 1,3 г вещества образуется 4,4 г углекислого газа и 0,9 г воды. плотность паров этого соединения по водороду равна 39. выведите молекулярную формулу этого вещества....

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