В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
nikitta76
nikitta76
17.10.2020 19:56 •  Информатика

2 Создайте программу, которая вычисляет сумму положительных элементов заданного массива в строке и присваивает ответ массиву A [5]. Элементы массива - действительные числа. B[5.5] 3 Создайте программу, которая вычисляет произведение отрицательных элементов данного массива в столбце. Элементы массива - действительные числа. A [12.6]
4 Создайте программу, которая вычисляет произведение положительных элементов главной диагонали из заданного массива. Элементы массива - целые числа. C [5.5]

Показать ответ
Ответ:
kuznetsovakristina
kuznetsovakristina
07.10.2022 01:15
1. Каким служебным словом начинается программа? B) begin
 2. Какое слово используют для описания переменных величин в программе? B) var
 3. Каким символом разделяют команды в программе? A) точка с запятой;
4. Какие из перечисленных слов могут быть именами пользователя?  D) Е6.
5. Какую команду используют для ввода данных? A) read;
 6. Какие из приведенных команд вывода данных записаны правильно?  C) write(‘y =’,y);
 7. Данные логического типа можно описать как: A) boolean;
 8. Каков результат вычисления выражения 45 mod 4? A) 1; B) 2; C) 3; D) 4. 
25 должно быть
9.В скольких позициях будет выведено значение переменной х при использовании формата вывода х:6:3? D) 6.
10. Какие из записей закона всемирного тяготения (F = ) на языке программирования являются правильными?B) F:=g*m1*m2/(r*r);
 11. Данные, значения которых являются действительными числами можно описать как:  B) double; 
0,0(0 оценок)
Ответ:
альбинка28
альбинка28
06.02.2020 07:32
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var s:string:='The factors of 12 are 1, 12, 2, 6, 3 and 4';
  s.Where(c->c in ['0'..'9']).Distinct.Println
end.

Результат выполнения программы:
1 2 6 3 4

Если хочется именно СОЗДАТЬ множество, а потом его вывести, то:

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var s: string := 'The factors of 12 are 1, 12, 2, 6, 3 and 4';
  var s1:=s.Where(c -> c in ['0'..'9']).Distinct;
  var c:set of '0'..'9':=[];
  foreach var e in s1 do Include(c,e);
  Writeln(c)
end.

Результат выполнения программы:
{3,2,4,6,1}
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота