Дан массив целых чисел. Найти номер первого отрицательного элемента, делящегося ** 5 с...

Question

Дан массив целых чисел. Найти номер первого отрицательного элемента, делящегося на 5 с остатком 2.

Answer 1

Не знаю, на каком языке нужно, вот на Java - по такому принципу переделать можно на любой язык или псевдокод.

import java.util.Scanner;

public class Number {
public static void main(String[] args) {

Scanner scanner = new Scanner(System.in);

System.out.println("Введите количесвто элементов массива:");
int arraySize = scanner.nextInt();

int array [] = new int[arraySize];

System.out.println("Заполненный массив:");
for (int i = 0; i < arraySize; i++) {
array[i] = (int)(Math.random()*100 - 100);
System.out.print(array[i]+ " ");
}

System.out.println("\nПорядковый номер нужного элемента: ");
for (int i = 0; i < arraySize; i++) {
if (array[i] < 0 && (array[i] % 5 == -2)) {
System.out.println(i);
break;
}
}

}
}

Comments

мне нужно в Паскале ABC и только массив. Помогите пж

Answer 2

А можно и без массива:

Var i,n,a,r:longint;f:boolean;
Begin
readln(n);
for i:=1 to n do
begin
read(a);
if (a < 0) and (abs(a) mod 5=2) and (f=false) then begin
r:=i;
f:=true;
end;
end;
if (f) then writeln(r)
else writeln(-1); // Нет такого элемента
End.

Comments

Var a:array[1..100] of longint;i,n:longint;
Begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]<0) and (abs(a[i]) mod 5=2) then begin<br>writeln(i);
exit;
end;
writeln(-1); // Нет такого элемента
End.

---

Увы, она выдаст ответ -1 - то есть, такого элемента нет.

---

Хорошо, уберём abs.

---

Var a:array[1..100] of longint;i,n:longint;
Begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]<0) and (a[i] mod 5=2) then begin<br> writeln(i);
exit;
end;
writeln(-1); // Нет такого элемента
End.