2.найти все элементы массива вещественных чисел с(n), больше заданного числа k....
Код:
uses crt;
var c: array [1..100] of real;
n, i: integer;
k: real;
begin
writeln("Введите размерность массива");
readln(n);
writeln("Введите элементы массива");
for i:=1 to n do
readln(c[i]);
writeln("Введите значение параметра k");
read(k);
for i:=1 to n do
if c[i]>k then writeln(i," элемент массива имеет значение ", c[i]);
readkey
end.
4.в линейном массиве целых чисел a(n) заменить все элементы, большие второго и меньшие пятого, на сумму второго и пятого...
листинг ниже приведен для фиксированных значений второго и пятого элементов, в противном случае их сумма должна динамически изменяться в последнем цикле в первые 5 проходов
Код:
uses crt;
var a: array [1..100] of integer;
n, i, s,tw,fi: integer;
begin
writeln("Введите размерность массива");
readln(n);
writeln("Введите элементы массива");
for i:=1 to n do
readln(a[i]);
tw:=a[2];
fi:=a[5];
s:=tw+fi; //можно обойтись и без этой переменной, но ввел ее для наглядности
writeln("Второй элемент равен ", tw, " Пятый элемент равен ", fi, " Сумма второго и пятого элементов равна ",s);
writeln("Массив до замены имеет вид:")
for i:=1 to n do
write(a[i]:6);
writeln("Массив после замены имеет вид:")
for i:=1 to n do begin
if (a[i]>tw) and (a[i]<fi) then a[i]:=s;
write(a[i]:6); end;
readkey
end.