Предмет: Қазақ тiлi, автор: marjan2206

антоним устеулери бар макал - мател

Ответы

Автор ответа: pav2017
1
1.Жаман жолдастан,жақсы дұшпан артық.
2.Ең тәтті де тіл, ең ащы да тіл.
3.Жақсы бала сүйік, жаман бала күйік.
4.Жоғары қарап пікір ет, төмен қарап шүкір ет.
5.Жақсы адам тауып айтар, жаман адам қауіп айтар
Похожие вопросы
Предмет: Алгебра, автор: kkapitoxamarinkina13
Предмет: Алгебра, автор: igrat5338
Предмет: Информатика, автор: sogia7777
Что означают в этом коде компоненты k и s( выделено на фото)

задание звучит так: Составьте программу отыскания наименьшего среди тех элементов одномерного массива A(N), что лежат вне интервала (C,D)


program z1;

uses crt; {Подключение модуля экрана}

var

a:array [1..100] of integer;

c,b,d,n,min,s,k,i:integer;

begin

clrscr;{Очистка экрана}

write('Введите интервал c:');

readln(c); {Вводится интервал c}

write('Введите интервал d:');

readln(d);{Вводится интервал d}

write('Введите размерность массива n=');

readln(n); {Вводится размерность массива}

if c>d then

begin {Проверка интервала с>d и смена значений с=d и d=c}

b:=c;

c:=d;

d:=b;

end;

s:=0;{Присваивание начального значения min}

For i:=1 to n do

begin

write('a[',i,']=');

readln(a[i]); {Ввод массива}

end;

For i:=1 to n do

begin

if (a[i] d) then {Выполнение определенного логического условия}

begin

k:=1;

s:=s+1;{Счетчик для нахождения первого элемента не входящего в интервал(c,d)}

if s=1 then

min:=a[i];{Присваивание min значение первого элемента массива}

if a[i]
min:=a[i];

end;

end;

if k=1 then {Выполнение определенного логического условия для вывода решения}

write('Минимальный элемент не входящий в интервал(',c,',',d,'):',min)

else

write('Все элементы входят в интервал');

readln; {Пауза по завершению задачи}

end.
Предмет: Математика, автор: омгдядя