tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу на языке
Написать программу на языке pascal для решения следующей : дан массив 4x4 из целых чисел. вычислить в массиве количество элементов равных пяти, имеющих чётные индексы строки. ввод массива, вычисление количества оформить в виде подпрограмм.
larisaiventeva
2 14.09.2019 18:40
0
Ответы
saida1808
07.10.2020 14:58
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!
function MatRead:array[,] of integer;
begin
Writeln('Вводите элементы через пробел построчно');
Result:=ReadMatrInteger(4,4)
end;
function PartCount(a:array[,] of integer):=
a.ElementsWithIndexes.Where(t->(t[0]=5) and t[1].IsOdd).Count;
begin
var a:=MatRead;
Writeln('*** Исходный массив ***');
a.Println(6); Writeln(6*a.ColCount*'-');
Writeln('Искомых элементов: ',PartCount(a))
end.
Пример
Вводите элементы через пробел построчно
34 12 21 5 0 3 12 5 -6 18 5 16 5 -15 16 7
*** Исходный массив ***
34 12 21 5
0 3 12 5
-6 18 5 16
5 -15 16 7
Искомых элементов: 2
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
лошжо
05.10.2019 00:40
Какие современные решает теория кодирования?...
Prikolno2018
15.04.2020 22:23
Лазарус (масив) Задача 7-3 Дано рядок символів. Визначити кількість літер латинського алфавіту. Ввід I love you! Задача 7-6 Дано рядок символів. Знищити в ньому всі пропуски. Ввід...
тчочолаовов1
15.04.2020 22:23
1.В симфонический оркестр приняли на работу трёх музыкантов: Вадима, Олега и Владимира, умеющих играть на скрипке, флейте, альте, кларнете, гобое и трубе. Известно, что: Олег самый...
olga19852
02.09.2019 22:50
Постоите квадрат со стороной 10 из точек используя оператор for...
Zaika111111111
02.09.2019 22:50
Опишите принцип работы оператора if. пример использования в программе. опишите отличие данного оператора условия от остальных....
Polina19790
17.03.2021 12:55
Посмотрите на рисунок. назовите тип данных...
fedoseeva3335
17.03.2021 12:55
створіть проект у якому можна обчислити суму ,або різницю ,або добуток або частку від ділення двох довільних дійсних чисел залежно від вибраного пункту розкривного списку Lazarus...
tiser
17.03.2021 12:57
2. Как называется принцип, согласно которому ввод в вывод данных в программе должны сопровождаться поясняющими сообщениями и подсказками?Выберите один из 4 вариантов ответа:1) Понятность...
g11uru
17.03.2021 12:57
Определи тип программного обеспечения. Соедини линией определения ...
gaytad1
17.03.2021 12:57
4. Дополните предложение. (3б) Система программирования - …… Язык программирования - …… Линейный алгоритм-…….. у меня СОР...
Популярные вопросы
Решите уравнения : sin ^2 x-3sin x +2=0(определите .сколько корней уравнения принадлежит...
2
Два тела начинают падать одновременно с разной высоты и достигают земли в один...
1
Пожплуйста , ! найти тангенс угла между касательной к графику функции у=2x^3-4x+3...
2
Дан текстовый файл, содержащий целые числа. найти количество чисел в файле и их...
1
Ctg3α - расписать как синус и косинус...
3
Какая дата связана с окончательным закрепощением крестян...
1
Экологическими факторами среды называются...
2
Решить, . решается как-то в . arctg (-1) + arcsin 1 -arccos 1 tg (arcsin ) tg 4x...
1
По . оптическая сила линзы d = 4 дптр. чему равно фокусное расстояние этой линзы?...
1
Скорость лодки9 кл/ч .за какое время она проплывёт 36 километров...
3
// Внимание! Если программа не работает, обновите версию!
function MatRead:array[,] of integer;
begin
Writeln('Вводите элементы через пробел построчно');
Result:=ReadMatrInteger(4,4)
end;
function PartCount(a:array[,] of integer):=
a.ElementsWithIndexes.Where(t->(t[0]=5) and t[1].IsOdd).Count;
begin
var a:=MatRead;
Writeln('*** Исходный массив ***');
a.Println(6); Writeln(6*a.ColCount*'-');
Writeln('Искомых элементов: ',PartCount(a))
end.
Пример
Вводите элементы через пробел построчно
34 12 21 5 0 3 12 5 -6 18 5 16 5 -15 16 7
*** Исходный массив ***
34 12 21 5
0 3 12 5
-6 18 5 16
5 -15 16 7
Искомых элементов: 2