Var a: array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do if a[i] mod 2<>0 then write(a[i],' ');
end.
Если нужно вывести большее из двух чисел, то правильно, кроме:
3-я строка - в конце нужна точка с запятой
7-я строка - бессмысленная команда readln. Ее можно не писать.
Об'єкт керування — це окрема машина, апарат, пристрій, технологічний процес або сукупність технічних засобів (машин, апаратів, пристроїв), які виконують технологічний процес, але при цьому потребують спеціально організованих впливів ззовні для досягнення поставленої мети керування.
var x: integer;
begin
write('Введите номер дня недели: ');
readln(x);
if (x = 1)then writeln('Понедельник');
if (x = 2)then writeln('ВТорник');
if (x = 3)then writeln('Среда');
if (x = 4)then writeln('Четверг');
if (x = 5)then writeln('Пятница');
if (x = 6)then writeln('Субота');
if (x = 7)then writeln('Воскресенье');
end.
Чем помочь кидай картинку