Массив задан датчиком случайных чисел на интервале [-31,45].
Сформировать новый массив В,состоящий из нечетных элементов массива А и найти в нем наименьший элемент.Размер произвольный. Решить с использованием функций(function). Pascal ABC.
// PascalABC.NET 3.0, сборка 1088 function InitA(n:integer):array of integer; begin Result:=ArrRandom(n,-31,45) end;
procedure GetA(var a:array of integer); begin a:=InitA(ReadInteger('Количество элементов в массиве А: ')); end;
procedure PutM(c:char; a:array of integer); begin Writeln('*** Массив '+c+'[',a.Length,'] ***',#13#10,a); end;
function FormB(a:array of integer):array of integer; begin Result:=Range(0,a.Length-1,2).Select(x->a[x]).ToArray end;
function MinEl(a:array of integer):integer; begin Result:=a.Min end;
begin var mA:array of integer; GetA(mA); PutM('A',mA); var mB:=FormB(mA); PutM('B',mB); Writeln('Минимальный элемент в массиве В равен ',MinEl(mB)) end.
<em><u>Тестовое решение:</u></em> Количество элементов в массиве А: 15 *** Массив A[15] *** [-22,0,-9,17,14,3,38,-18,-28,-17,28,13,1,1,26] *** Массив B[8] *** [-22,-9,14,38,-28,28,1,26] Минимальный элемент в массиве В равен -28
1. Не знаю, как совместить стороны и диагонали в одном решении, сделал нахождение по диагоналям.
var d1, d2, S: real; begin write('Введите диагонали d1 и d2'); readln(d1, d2); if(d1>0) and (d2>0) then begin S:=(d1*d2)/2; writeln('Площадь равна: ', S) end else writeln('Условия неверны!') <span>end.
Чтобы написать, достаточно знать основы паскаля. Если есть вопросы к какой-либо строке - напиши.
Делаем всё по уму. 1. Два столбца и три рядка размечаем. — Столбцы: "Год", "Месяц" — Ряды: "День рождения", "Текущая дата", "Возраст" 2. "День рождения" заполняем вручную, указываем в столбце "Год" - год рождения, в столбце "Месяц" - месяц рождения. 3. Заполняем по формулам текущую дату в ряде "Текущая дата", формула для столбца "Год": — "=YEAR(TODAY())", функция TODAY() - возращает текущую дату в формате Exel, функция YEAR() - принемает дату формата Exel и возращает год в виде целого числа. — "=MONTH(TODAY())", работает схоже с предыдущей функцией, но в отличии от нее, определяет из текущей даты - месяц. 4. Заполняем ряд "Возраст", тут указываем формулы для столбца "Год" и "Месяц" простые формулы, где вычетаем из текущей даты - дату рождения.