1.какой тип данных могут иметь аргументы и возвращаемые значения функций? 2.какой тип данных могут иметь аргументы и возвращаемые значения строковых функций?
1 PASCAL если математические действия с плавающей запятой, то без "real" "expected" "singler" "extended" "double" не обойтись если целые числа, то "byte" "integer" "shortint" "longint" JAVA все проще целые "byte"(8бит) "short"(16бит) "int"(32бит) "long"(64бит) с плавающей запятой "float" (32бита) "double" (64 бита) 2 PASCAL строки как обычно вроде "String", друго-го не дано JAVA тоже "String"
// PascalABC.Net 3.0, сборка 1052 const nn=100; var a:array[1..nn] of integer; p,s:longint; i,n:byte; begin Write('Введите количество элементов в массиве: '); Read(n); Writeln('Вводите целочисленные элементы массива через пробел'); s:=0; p:=1; for i:=1 to n do begin Read(a[i]); if i mod 2 = 0 then p:=p*a[i]; s:=s+a[i] end; Writeln('Произведение элементов с четными номерами: ',p); Writeln('Среднее арифметическое элементов: ',s/n) end.
Тестовое решение: Введите количество элементов в массиве: 10 Вводите целочисленные элементы массива через пробел -4 6 11 8 12 21 7 13 9 -15 Произведение элементов с четными номерами: -196560 Среднее арифметическое элементов: 6.8
// PascalABC.NET 3.3, сборка 1607 от 31.12.2017 // Внимание! Если программа не работает, обновите версию!
type R=sequence of integer;
begin var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println; var P:R->BigInteger:=t->t.Aggregate(BigInteger(1),(p,q)->p*q); if P(a.Where(t->t.IsEven))>P(a.Where(t->t.IsOdd)) then Writeln('Номер максимального элемента: ',a.IndexMax+1) else Writeln('Номер минимального элемента: ',a.IndexMin+1) end.
если целые числа, то "byte" "integer" "shortint" "longint"
JAVA все проще
целые "byte"(8бит) "short"(16бит) "int"(32бит) "long"(64бит)
с плавающей запятой "float" (32бита) "double" (64 бита)
2 PASCAL строки как обычно вроде "String", друго-го не дано
JAVA тоже "String"