Ввести с клавиатуры два перечня А и В, состоящих из 10

Ввести с клавиатуры два списка А и В, состоящих из 10 элементов. Решить уравнение ах=b, подставляя заместо а и b значения из списков. Итог вычислений поместить в перечень Х. Вывести на экран перечни А, В, Х и все элементы перечня Х, целая часть которых кратна 5.



Задать свой вопрос
1 ответ
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=new Listlt;realgt;;
  a.AddRange(ReadSeqReal('Введите перечень А:',10));
  var b:=new Listlt;realgt;;
  b.AddRange(ReadSeqReal('Введите список B:',10));
  var x:=new Listlt;realgt;;
  x.AddRange(a.Zip(b,(p,q)-gt;q/p));
  Write('A: '); a.Println;
  Write('B: '); b.Println;
  Write('X: '); x.Where(p-gt;Trunc(p) mod 5=0).Println;
end.

Пример
Введите перечень А: 1 5 -2 3.5 12 16.3 -7 1.3 0.15 10
Введите перечень B: 10.4 37 -14 6.3 1 -8 -12.94 6.9 18 52
A: 1 5 -2 3.5 12 16.3 -7 1.3 0.15 10
B: 10.4 37 -14 6.3 1 -8 -12.94 6.9 18 52
X: 10.4 0.0833333333333333 -0.49079754601227 5.30769230769231 120 5.2
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт