Предмет: Информатика,
автор: polinaket2001
ПОМОГИТЕ С ИНФОРМАТИКОЙ!!!ОЧЕНЬ НУЖНО. Составьте программу: Дана таблица вещ таб B[1:7]. Замените каждый отрицательный элемент нулем.
Дана таблица вещ таб С[1:10]. Найдите максимальный элемент таблицы.
Ответы
Автор ответа:
0
Первая часть
Program n_1;
var i:integer; B: array[1..7] of real;
begin
for i:=1 to 7 do begin
read(B[i]);
if B[i]<0 then B[i]:=0;
end;
for i:=1 to 7 do write(B[i]:0:5, ' ');
end.
Вторая часть
Program n_2;
var i:integer; a:real; C: array[1..10] of real;
begin
for i:=1 to 10 do begin
read(C[i]);
end;
a:=C[1];
for i:=1 to 10 do if (C[i]>a) then a:=C[i];
writeln(a:0:10);
end.
Похожие вопросы
Предмет: Английский язык,
автор: smpolina79
Предмет: Геометрия,
автор: jhhcrdfdb
Предмет: Українська мова,
автор: anastasiapartika609
Предмет: Биология,
автор: айгуль64
Предмет: Физика,
автор: qwerdfgxr
А также данный массив каким образом вводятся числа? с клавиатуры?