Делфи

[koxaz941]

Помогите, будьте добры.
Вообщем вот такая вот проблема.
найти номер первого положительного элемента делящегося на 5 с остатком 2.
Array type required - вот такую ошибку выдает.
procedure TForm1.Button1Click(Sender: TObject);
var i,n,k,k1,r,r1,f,a:integer;
begin
i:=strtoint(Edit1.Text);
n:=strtoint(Edit2.Text);
k:=strtoint(Edit3.Text);
k1:=strtoint(Edit4.Text);
r1:=strtoint(Edit5.Text);
r:=strtoint(Edit6.Text);
Memo1.Lines.Add(floattostr(f));
for i:=1 to n do
if a[i]>0 then
begin
if a[i] mod 5 = 2 then begin
writeln(i);
break;
end;
end.

[BDA]

Переменная "а" имеет тип integer, который не является типом массива.

[koxaz941]

Сообщение от BDA

Переменная "а" имеет тип integer, который не является типом массива.

я в программировании практически нечего не умею, поэтому не мог бы, описать мою ошибку по конкретнее.

[BDA]

Я не представляю, как еще конкретнее описать.
На примере из жизни:
У Вас есть 1 рядовой Петров, но Вы пытаетесь обратиться к первому, второму и так далее рядовым, которых просто нет, так как у Вас только один Петров.

Допустим, что "a" описан, как array of integer, то есть массив целых чисел. Вы обращаетесь к элементам незаполненного массива.

В задаче сказано "первого положительного элемента делящегося на 5 с остатком 2", откуда Вы берете значения элементов? (в коде этого нет).

[koxaz941]

Сообщение от BDA

Я не представляю, как еще конкретнее описать.
На примере из жизни:
У Вас есть 1 рядовой Петров, но Вы пытаетесь обратиться к первому, второму и так далее рядовым, которых просто нет, так как у Вас только один Петров.

Допустим, что "a" описан, как array of integer, то есть массив целых чисел. Вы обращаетесь к элементам незаполненного массива.

В задаче сказано "первого положительного элемента делящегося на 5 с остатком 2", откуда Вы берете значения элементов? (в коде этого нет).

Прости за наглость, но не мог бы ты написать программу?

[BDA]

Я смогу помочь, если Вы объясните откуда Вы берете значения элементов и напишите полностью условие задачи.

[koxaz941]

Сообщение от BDA

Я смогу помочь, если Вы объясните откуда Вы берете значения элементов и напишите полностью условие задачи.

Вот мое задание:
1. Дан массив целых чисел из n элементов, заполненных случайным образом числами из промежутка [-1000,1000]. Найти сумму четных чисел. (Это задание уже сделал, написал из-за того, мало ли, понадобятся какие то данные).
2. Найти номер первого положительного элемента, делящегося на 5 с остатком 2. (Вот это нужно сделать)

[BDA]

Вот хорошо. Приведите решение 1 задачи (туда нужно добавить несколько строчек, чтобы одновременно решалось второе).

[koxaz941]

Сообщение от BDA

Вот хорошо. Приведите решение 1 задачи (туда нужно добавить несколько строчек, чтобы одновременно решалось второе).

Вот:

procedure TForm1.Button1Click(Sender: TObject);
var i,n,j,k,s,r:integer;
a:array [1..100] of integer;
begin
i:=strtoint(Edit1.Text);
n:=strtoint(Edit2.Text);
j:=strtoint(Edit3.Text);
k:=strtoint(Edit4.Text);
s:=strtoint(Edit5.Text);
r:=strtoint(Edit6.Text);
Memo1.Lines.Add(floattostr(s));
randomize;
for i:=1 to n do
a[i]:=trunc((1000-(-1000))*random+(-1000));
for i:=1 to n do
s:=0;
for i:=1 to n do
if (a[i] mod 2)=0
then
s:=s+a[i];
k:=0;
for i:=1 to n do
end;

end.

[BDA]

procedure TForm1.Button1Click(Sender: TObject);
var
  n, i, j, a, s: integer;
  str: string;
begin
  randomize;
  n := strtoint(Edit1.Text);
  j := -1;
  s := 0;
  str := '';
  for i := 1 to n do
  begin
    a := random(2001) - 1000;
    if a mod 2 = 0 then
      inc(s, a);
    if (j < 0) and (a > 0) and (a mod 5 = 2) then
      j := i;
    str := str + inttostr(a) + ' ';
  end;
  str := str + #13#10 + 'Сумма четных чисел: ' + inttostr(s) + #13#10 +
    'Номер первого положительного элемента, делящегося на 5 с остатком 2: ' +
    inttostr(j);
  Memo1.Text := str;
end;

Это решение и первой, и второй.
В этом решении не используется массив (фактически он не нужен), так как элементы можно генерировать и обрабатывать последовательно.

UPD
Пожалуйста