Помогите пожалуйста, нужно программировать задачи с использованием одномерных массивов.В...

Question

71 просмотров

Помогите пожалуйста, нужно программировать задачи с использованием одномерных массивов.В турбо поскаль,развернуто, полность программу.Заранее спасибо.
1) В линейном массиве целых чисел (B25) заменит все элементы, меньше 0, на квадрат этих элементов.
2) В линейном массиве вещественных чисел A(к) заменить все элементы, большие 10, на число C.
3) В линейном массиве целых чисел B(к) заменить все элементы кратные 5, на их удвоенное значение.
4) В линейном массиве целых чисел B(50) заменить все элементы, кратные введенному числу С, на их квадраты.
5) В линейном массиве целых чисел B(40) заменить первые 10 элементов по формуле B(к)=B(к)*3

Пример на фото

Информатика Moring_zn (22 баллов) 02 Апр, 18 | 71 просмотров

Дан 1 ответ

EzKatka322_zn · Answer 1 · 2018-04-01T23:53:10+0000

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]<0 then m[i]:=m[i]*m[i]; writeln(m[i]); end; end. 2. var m:array[1..1000] of real; k,i:integer; c:real; begin writeln('Сколько элементов в массиве?'); readln(k); writeln('На какое число заменять?'); readln(c); for i:=1 to k do begin writeln('Введите ',i,'-ый элемент массива'); readln(m[i] end; for i:=1 to k 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;