Составьте алгоритм нахождения наименьшего из трех значений в паскаль с объяснением
Нет комментариев
Ответы
Гость 1 вариант:
vara, b, c, min: integer;beginmin:=0;readln(a, b, c);if (a<b) and (a<c) then min:=a;if (b<a) and (b<c) then min:=b;if (c<a) and (c<b) then min:=c;writeln(min); end.2 вариант:Var a:array[1..3] of integer;i,z:integer;beginfor i:=1 to 3 doReadln(a[i]);z:=a[1];for i:=2 to 3 dobeginif a[i]<zthen z:=a[i];end;writeln(z);end.
Нет комментариев
Список предметов
