В PascalABC.NET есть много что готового. В частности, используя новые возможности, можно записать всё одной (вернее, двумя) строчками:
Код (PascalABC.NET):
##
ArrRandomInteger.Select((val, ind) -> Format('a[{0}] = {1}', ind, val)).Print(NewLine)
Пример вывода:
a[0] = 83
a[1] = 6
a[2] = 58
a[3] = 61
a[4] = 64
a[5] = 49
a[6] = 59
a[7] = 9
a[8] = 83
a[9] = 75
Более традиционный (в стиле "старого Паскаля") подход можно реализовать, например, так:
Код (PascalABC.NET):
var
a: array[1..10] of integer;
i: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(101);
writeln('a[', i, '] = ', a[i]);
end;
end.
Пример вывода:
a[1] = 7
a[2] = 21
a[3] = 15
a[4] = 78
a[5] = 91
a[6] = 72
a[7] = 63
a[8] = 56
a[9] = 38
a[10] = 81
import java.util.Arrays;
public class ArrayHandler {
static double[] handle(double[] array) {
double sum1 = 0.0;
for(int i = 1; i < array.length; i+=2)
sum1 += array[i];
System.out.println(sum1);
double sum2 = 0.0;
int negPos1 = -1, negPos2 = -1;
for(int i = 0; i < array.length; i++)
if(array[i] < 0)
if(negPos1 == -1)
negPos1 = i;
else
negPos2 = i;
if(negPos2 != -1)
for(int i = negPos1 + 1; i < negPos2; i++)
sum2 += array[i];
System.out.println(sum2);
int iter = 0;
double[] temp = new double[array.length];
for(double v : array)
if(v > 1 || v < -1)
temp[iter++] = v;
double[] result = new double[iter];
System.arraycopy(temp, 0, result, 0, iter);
return result;
}
}
Объяснение:
Модели бывают информационные и натуральные.
Информационные модели: таблица, чертежи, схемы и т.д.