Предмет: Информатика, автор: polinaket2001

ПОМОГИТЕ С ИНФОРМАТИКОЙ!!!ОЧЕНЬ НУЖНО. Составьте программу: Дана таблица вещ таб B[1:7]. Замените каждый отрицательный элемент нулем.
Дана таблица вещ таб С[1:10]. Найдите максимальный элемент таблицы.


MrMiner1: Итак. Если требуется составить программу, то под таблицей подразумевается массив?
А также данный массив каким образом вводятся числа? с клавиатуры?
polinaket2001: да

Ответы

Автор ответа: MrMiner1
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.


polinaket2001: СПАСИБО)))
Похожие вопросы
Предмет: Английский язык, автор: smpolina79