Напишите программу которая вводит с клавиатуры натуральное число n и после этого вводит еще n целых - id797595020230403 от Senavn 03.04.2023 19:04

Question

Информатика: Напишите программу которая вводит с клавиатуры натуральное число n и после этого вводит еще n целых чисел после этого программа выводит присутствует ли среди введеных чисел хотя бы одно отрицательное число yes no

Senavn · Accepted Answer

//PascalABC.NET
//Постройте алгоритм и составьте программу, по которой будет реализован
//следующий вариант сценарий: компьютер запрашивает номер дня недели,
//после ввода компьютер сообщает название этого дня (типо если ввели
//1 это понедельник 3 - среда)

type Arr = array [0..6] of string;

begin
   var DN: Arr := ('Воскресенье', 'Понедельник', 'Вторник', 'Среда',
               'Четверг', 'Пятница', 'Суббота');
   write('Введите порядковый номер дня недели: ');
   var n := ReadlnInteger;
   write('Этот день называется ', DN[n mod 7])
end.

Постройте алгоритм и составьте программу, по которой будет реализован следующий вариант сценарий: ко

MOGZ ответил