Решите пожалуйста массив(паскаль) - Вопросы по Pascal

Вопрос Решите пожалуйста массив(паскаль)

Регистрация
5 Ноя 2012
Сообщения
72
Репутация
0
Спасибо
0
Монет
0
1)Дан массив из 5 элементов. Вывести элемент, который больше 7.

2) дан массив из 6 элементов, if=3 то заменить его на 5
 
Регистрация
21 Авг 2013
Сообщения
91
Репутация
0
Спасибо
0
Монет
0
const n = 5;
var i: integer;
a: array[1..n] of integer = (1, 11, 2, 10, 3);
begin for i := 1 to n do
if a > 7 then write(a, ' ');
writeln() end.

const n = 6;
var i: integer;
a: array[1..n] of integer = (1, 3, 11, 2, 10, 3);
begin for i := 1 to n do
if a = 3 then begin a := 5; write(a, ' ') end;
writeln() end.
 
Сверху Снизу