<span>таблица значений функций
</span> x: -1 7 3 0
у: 4 5 1 5
Program zadacha;
var a: array[1..5] of integer;
max,min,i,nmax,nmin: integer;
begin
for i:=1 to 5 do
begin
write ('Ââåäèòå a[',i,']=');
readln (a[i]);
end;
max:=a[1];
min:=a[1];
nmax:=1;
nmin:=1;
for i:=1 to 5 do
begin
if a[i]>max then
begin
max:=a[i];
nmax:=i;
end;
if a[i]<min then
begin
min:=a[i];
nmin:=i;
end;
end;
for i:=1 to 5 do
begin
write (a[i],' ');
end;
writeln;
writeln ('Максимальный элемент равен ',max,', его номер ',nmax);
writeln ('Минимальный элемент равен ',min,', его номер ', nmin);
end.
Жила Тётушка Совунья она очень любила информатику и учила всех!
Но один мальчик Сема не любил информатику ,Тётушка учила его ,учила,учила,но он всеровно не хотел учить этот предмет. Один раз когда прозвенел звонок после урока Русского языка (следующий урок был информатика) Сема сказал всем что"А вы знаете ,что информатика это легкий придмет и поэтому я его не учу " А все подумали" Может Семка прав? Довайте выбрасим тетрадки и будем играть лучше на уроке , А довай" (Сказали дети) И выбрасили тетрадки.
Они пришли на урок и начели беситься . Пришла Тётушка Совунья и Сказала"Дети!
Вы чего Информатика Очень полезный урок !" Дети задумались.... Тетушка совунья" Если вы не будите знать Инорматику вы не сможите играть в ваши современные компьютеры!" И дети всё поняли,Даже Сема всё понел ,и начел учить информатику.
Монитор потому что он управляется мышкой
var d, m:integer;
var h:real;
begin
readln(d);
m := d * 2;
h := m / 60;
m := m mod 60;
write('Количество часов = ' + Int(h) + ' количество минут = '+ m)
end.
