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

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

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

Максим 2019-02-13 09:59:19

Var a:array[1..100] of longint;i,n:longint;Beginreadln(n);for i:=1 to n doread(a[i]);for i:=1 to n doif (a[i]<0) and (абс(a[i]) mod 5=2) then beginwriteln(i);exit;end;writeln(-1); // Нет такового элементаEnd.

Maks Gajcherov 2019-02-13 10:04:02

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

Ярослава Жулаева 2019-02-13 10:05:49

Превосходно, уберём абс.

Ilja Terakov 2019-02-13 10:12:29

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 writeln(i); exit; end; writeln(-1); // Нет такового элементаEnd.

Илья Евгеньев · Answer 2 · 2019-02-13 09:58:45+3:00

Не знаю, на каком языке необходимо, вот на 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 lt; arraySize; i++)
array[i] = (int)(Math.random()*100 - 100);
System.out.print(array[i]+ " ");

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

О проекте

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

Добро пожаловать!