profile
Опубликовано 5 лет назад по предмету Информатика от Аккаунт удален

Помогите, пожалуйста!
Выполнение в ПАСКАЛЕ.
Составьте ПРОГРАММУ для нахождения ИНДЕКСА первого положительного элемента массива из 10 элементов, заданных случайным образом.

  1. Ответ
    Ответ дан ИнформатикБУ
    var
    a: array[1..10] of integer;
    i, first: integer;
    begin
    randomize;
    for i:=1 to 10 do
    a[i] := random(50)-25;
    for i:=1 to 10 do
    if a[i] > 0 then
    begin
    first := i;
    break;
    end;
    writeln(first);
    end.