Из 6 чисел найти минимум и максимум.

@Leotez · Регистрация: 07.10.2010

Студворк — интернет-сервис помощи студентам

"Из 6 заданных чисел найти максимум и минимум. Вывести на печать эти числа с указанием четное оно или нечетное."
Начинаю учиться программировать на Паскале. Первую часть задания вроди как написал, но очень много получилось, хочется проверить. Вторая часть (с четным, нечетным) неполучается совсем... Попробуйте кто-нибудь написать, буду очень благодарен!

@Snoopy · 07.10.2010, 18:27

Pascal

uses crt;
const n=6;
var a:array[1..n] of integer;
    i,min,max:integer;
begin
ClrScr;
for i:=1 to n do
 Readln(a[i]);
for i:=1 to n do
 Write(a[i],'  ');
min:=a[1];
max:=a[1];
for i:=2 to n do
 if a[i]>max then
  max:=a[i]
 else
  if a[i]<min then
   min:=a[i];
Writeln;
Write('Max ',max);
if not odd(max) then
 Write(' Chetmoe')
else
 Write(' Ne chetnoe');
Writeln;
Write('Min ',min);
if not odd(min) then
 Write(' Chetmoe')
else
 Write(' Ne chetnoe');
Readln;
end.

@SuPeR XaKer · 07.10.2010, 18:28

Pascal

Uses
 CRT;
var
 min,max,sum,i,c:integer;
begin
ClrScr;
min:=MaxInt;
max:=-MaxInt;
for i:=1 to 6 do
begin
write('c[',i,']:=');
readln(c);
if c>max then max:=c;
if c<min then min:=c;
end;
writeln;
if min mod 2=0 then
write('MIN:=',min,' ÷¸òíîå')
else
write('MIN:=',min,' íå ÷¸òíîå');
writeln;
if max mod 2=0 then
write('MAX:=',max,' ÷¸òíîå')
else
write('Max:=',max,' íå ÷¸òíîå');
readkey
end.

Snoopy там про массивы ни слова сказано не было

@Snoopy · 07.10.2010, 18:28

Pascal

uses crt;
const n=6;
var a:array[1..n] of integer;
    i,min,max:integer;
begin
ClrScr;
for i:=1 to n do
 Readln(a[i]);
for i:=1 to n do
 Write(a[i],'  ');
min:=a[1];
max:=a[1];
for i:=2 to n do
 if a[i]>max then
  max:=a[i]
 else
  if a[i]<min then
   min:=a[i];
Writeln;
Write('Max ',max);
if not odd(max) then
 Write(' Chetmoe')
else
 Write(' Ne chetnoe');
Writeln;
Write('Min ',min);
if not odd(min) then
 Write(' Chetmoe')
else
 Write(' Ne chetnoe');
Readln;
end.

@Leotez · 07.10.2010, 21:48 **[ТС]**

Snoopy
SuPeR XaKer

Спасибо товарищи!

@Leotez 0 / 0 / 0 Регистрация: 07.10.2010 Сообщений: 12
		1
	Из 6 чисел найти минимум и максимум. 07.10.2010, 18:14. Показов 13266. Ответов 4 Метки нет (Все метки) "Из 6 заданных чисел найти максимум и минимум. Вывести на печать эти числа с указанием четное оно или нечетное." Начинаю учиться программировать на Паскале. Первую часть задания вроди как написал, но очень много получилось, хочется проверить. Вторая часть (с четным, нечетным) неполучается совсем... Попробуйте кто-нибудь написать, буду очень благодарен! 0

@Leotez 0 / 0 / 0 Регистрация: 07.10.2010 Сообщений: 12
	07.10.2010, 21:48 [ТС]	5
	Snoopy SuPeR XaKer Спасибо товарищи! 0

Опции темы