№1

+ 0 -

Hasanowanasiba

12 июня 2015 г., 1:38:13 (8 лет назад)

1)
uses crt;
var a=array[1..8] of integer;
b=array[1..8] of integer;
i,min,j:integer;
begin
randomize;
min:=16;
for i:=0 to 8 do
begin
a[i]=random(30)-15;
if (a[i]<min)
min:=a[i];
end;
j:=0;
for i:=0 to 8 do
if (a[i] = min)
begin
b[j] = i;
j = j+1;
end;
for i:=0 to j do
writeln(b[i]);
end.
2)
uses crt;
var a=array[1..51] of integer;
i,sum,j,h:integer;
begin
h := 1;

+ 0 -

Maurg

12 июня 2015 г., 3:23:24 (8 лет назад)

PaskalABC.NET массивы

+ 0 -

Nadka666

12 июня 2015 г., 4:14:56 (8 лет назад)

от простого АВС отличается сильно?

+ 0 -

Mandarin4ik007

12 июня 2015 г., 7:03:08 (8 лет назад)

современный язык программирования, основанный на Delphi (Object Pascal) и сочетающий простоту языка Паскаль и огромные возможности платформы .NET
бесплатная, простая и мощная среда разработки, ориентированная на обучение программированию.