Program mas;
const N=(количество чисел в массиве);
var a:array[1..N] of integer;
i,max:integer;
begin
for i:1 to N do readln(A[i]);
max:=0;
for i:=1 to N do
if (A[i]>max) or (max=0) then max:=A[i];
writeln(max);
end.

0 0

4 года назад

Дана иерархическая файловая система в операционной системе Windows.Записать полные имена файлов.Помогите,буду очень признательна

Allval

A:\Документы\Сочинения\Литература.doc.
А:\Фото\Принтер.bmp
А:\Фото\Компьютер.bmp

0 0

4 года назад

Помогите ,пожалуйста!Составьте алгоритмы рисования изображенных ниже фигур так,чтобы в процессе рисования перо не отрывалось от

leongedeon

program z1;
uses drawman;
begin
field(8,7);
pendown;
topoint(8,0);
topoint(8,4);
topoint(4,7);
topoint(0,4);
topoint(0,0);
topoint(8,4);
topoint(0,4);
topoint(8,0);
end.

0 0

4 года назад