Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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