Задачи с массивами | Pascal | Сумма и поиск элементов

Урок по программированию на языке Pascal.
В этом уроке решаем задачи с массивами. Задачи на поиск элементов в массиве и нахождение суммы элементов массива.
Среда программирования Pascal ABC.Net
======================================================
Тексты задач и исходный код: clck.ru/LKPPE
Учитель: Лосев Антон Владимирович
Сайт учителя: losev-it.ru
*****Дистанционный курс программирования на Pascal*****
clck.ru/LKPR2

[@user-ph8jl7li9w]

Вы - просто гений. Я сразу всё понял, хотя информатика даётся мне с трудом. Спасибо вам большое

[@losev-it]

Спасибо 😊 рад что помог

[@Woisy_original]

Вы лучшие, у нас по информатике учитель ничего не объясняет, а просто показывает пример программы, естественно, что те, кто не занимается, тот не понимает, а у вас все очень понятно, я прям просветился в данной теме

[@deadgordon1076]

Большое спасибо за понятные объяснения 😎

[@puff1s181]

Спасибо,урок полезный.

[@Dddddd-rp4jt]

Спасибо,всё понятно,подпишусь

[@Iskooooooooo]

Спасибо большое! Очень понятно объяснили:)

[@Mr_kekss]

Большое спасибо, рассказано очень понятным языком.

[@mycover8630]

Дай бог вам здоровья. Очень круто и понятно

[@losev-it]

Спасибо))

[@uSAN02]

спасибо, помогли. главное теперь запомнить

[@user-dk4uh8nh8e]

Очень круто. Замечательно объясняете! Спасибо!

[@losev-it]

Спасибо🙂👍🏻

[@user-dk4uh8nh8e]

Да. Спасибо Вам. Это одно коротенькое видео ответило на кучу вопросов. Побольше бы таких от Вас видео.👍

[@user-vf8ee7tj7w]

Очень-очень полезный и понятный урок!!!!

[@hiften4659]

Большое спасибо, всё стало намного понятнее!!

[@pilot4820]

thank you very much

[@user-kc2ur8ut9g]

Спасибо. Стало понятнее

[@saywayd.]

спасибо за видео!! а что делать, если по условию нужно вывести в две строки сначала отрицательные элементы, а затем положительные?

[@user-sy1id5rf9l]

Здравствуйте, хотел бы задать вопрос вам! Нужно сделать из массива матрицу, то есть там несколько строчек и столбцов, и когда я складываю отрицательные числа, всегда пишет что сумма их равна нулю. Можете подсказать как это грамотнее записать чтобы все работало?)

[@nassu_v_tapki]

Благодарю)

[@losev-it]

Всегда рад помочь)))

[@nassu_v_tapki]

@@losev-it в принципе все понятно, но это про массивы на базовом уровне. Будет ли посложнее что-то?

[@losev-it]

Конечно!

[@user-jp2yo8mj3g]

Можете показать как найти первый отрицательный и последний отрицательный элемент одномерного массива?

[@aicscs5005]

можете помочь я не знаю как делать это задание паскаль произведение всех элементов массива

[@user-nt8ot5wf3t]

Добрый день! Как вывести сначала отрицательные, а потом положительные элементы массивы

[@user-ib7om5mv6p]

Помогите составить код в Делфи 7 . Расчитать цены товаров в другой валюте, если задан её курс относительно гривны. Изучаем одномерные массивы.

[@losev-it]

Сожалею, но делфи не мой язык...

[@_INFIX_]

Считать с клавиатуры целое число А. Определить количество цифр больше 5. Помогите

[@pexbain]

Спасибо вам большое ! А чтоб найти числа только положительные Нужно использовать if ? If a(I) > 0 Then write(a(I),’ ‘); End ; Вот такой цикл ?

[@losev-it]

Да 👍🏻

[@pexbain]

@@losev-it спасибо большое !

[@user-ho4zc4id2p]

Спасибо, урок понятный. Но я видимо что то не правильно сделал. Мне задали написать программу "15. Заполнить массив К из 30 элементов случайными числами в интервале [-100;100]. Найти элементы массива, меньшие 20 и заменить их на 200. " я её написал всё правильно выводило либо я условие не до конца понял либо я не знаю что. Помогите пожалуйста!!! вот моя программа:var a:integer; z:array [1..30] of integer; begin for a:=1 to 30 do begin z[a]:= random(201)-100; if z[a]

[@vicus9953]

Через 2 месяца актуально наверное) var k:array [1..30] of integer; begin for var i:=1 to 30 do k[i]:=random(-100,100); writeln(k); for var i:=1 to 30 do if k[i]

[@Gargaev_TMG]

var a:integer; k: array [1..30] of integer; begin for var a := 1 to 30 do begin k[a] := random(-100, 100); if (k[a] < 20) then k[a] := 200; write(k[a], ' '); end; end.

[@user-ov5co6fm7b]

двумерные массивы будут?

[@losev-it]

Думаю, что пока нет. Нет великой надобности.

[@txmka7]

4:48 а если сгенерируется 201?

[@user-kw4ye5el6t]

Непонял как записывать диапазон рандома

[@elfclown9933]

Имеется ли смысл учить Pascal в 2021?

[@losev-it]

Почему нет? Хороший учебный язык.

[@elfclown9933]

@@losev-it Разве не полезней учить Python, Java и т.д. вместо Pascal?

[@losev-it]

Смотря в каких условиях. Если вы ученик в школе и начинаете изучать программирование, то паскаль, на мой взгляд, идеально подходит для изучения программирования. Если вы студент вуза, колледжа, то паскаль однозначно нет. Лучше phyton.

[@ewgvik]

даны 2 массива А и Б, состоящие из 10 элементов, в А - положительные, в Б - отрицательные. Из массива А найти наименьший, из Б - наибольший. Вывести на экран их и их сумму помогите пожалуйста!!!!!! Как это

[@user-yf1gn4zf8n]

Есть те,Кто идет на олимпиаду,но нехера не понимает и пришел сюда посмотреть,как вообще это решать,чтобы получить хотя бы какую-то часть баллов?

[@losev-it]

Олимпиадные задачи по программированию уже скоро на канале

[@user-yf1gn4zf8n]

@@losev-it у меня она завтра будет,но я надеюсь,что это видео мне поможет.Я в 10 классе

[@losev-it]

Удачи тогда завтра!!!!

[@user-yf1gn4zf8n]

@@losev-it Благодарю,и вам с ютуб каналом удачи.

[@user-bo4jl7ch3v]

Куда program писать мне 2 поставили

[@x3au__urpa57]

"For a:=1 to 50 do "а почему именно 50?

[@losev-it]

Так как у нас по условию задачи 50 элементов в массиве и нам нужно 50 раз повторить одно и то же действие: присвоить элементу случайное число и проверить его по условию.

[@x3au__urpa57]

Хорошо, спасибо большое

[@tboucoceg303]

По факту можно написать и до 1000 и до 2000

[@losev-it]

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

[@caspr7312]

скуф.

[@2bpry]

бот

[@2bpry]

ну а так молодец, норм обьяснил