Вопрос по информатике:
Помогите пожалуйста, нужно программировать задачи с использованием одномерных массивов.В турбо поскаль,развернуто, полность программу.Заранее спасибо.
1) В линейном массиве целых чисел (B25) заменит все элементы, меньше 0, на квадрат этих элементов.
2) В линейном массиве вещественных чисел A(к) заменить все элементы, большие 10, на число C.
3) В линейном массиве целых чисел B(к) заменить все элементы кратные 5, на их удвоенное значение.
4) В линейном массиве целых чисел B(50) заменить все элементы, кратные введенному числу С, на их квадраты.
5) В линейном массиве целых чисел B(40) заменить первые 10 элементов по формуле B(к)=B(к)*3
Пример на фото
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 06.06.2016 01:58
- Информатика
- remove_red_eye 11326
- thumb_up 22
Ответы и объяснения 1
1. var m:array[1..25] of integer; i:integer; begin for i:=1 to 25 do begin writeln('Введите ',i,'-ый элемент массива'); readln(m[i]) end; for i:=1 to 25 do begin if m[i]10 then m[i]:=c; writeln(m[i]); end; end. 3. var m:array[1..1000] of integer; k,i:integer; begin writeln('Сколько элементов в массиве?'); readln(k); for i:=1 to k do begin writeln('Введите ',i,'-ый элемент массива'); readln(m[i] end; for i:=1 to k do begin if m[i] mod 5 = 0 then m[i]:=m[i]*2; writeln(m[i]); end;
- 07.06.2016 21:22
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.