Вопрос по информатике. Написать программу на языке FreePascal. Дан массив определённой длины, в котором могут быть как положительные, так и отрицательные числа. Проинициализировать массив и найти кол-во элементов массива до первого отрицательного и сумму элементов после него

Question

Информатика

Геруся

2 апреля, 13:02

Вопрос по информатике. Написать программу на языке FreePascal. Дан массив определённой длины, в котором могут быть как положительные, так и отрицательные числа. Проинициализировать массив и найти кол-во элементов массива до первого отрицательного и сумму элементов после него

+1

Ответы (1)

Знаете ответ на вопрос?

Аря · Answer 1

Uses Crt;

Const

N = 13;

Var

A:array[1 ... N] of integer;

i, k:integer;

S:real;

Begin

Randomize;

ClrScr;

For i: = 1 to N do

Begin

A[i]:=random (21) - 10;

Write (A[i],' ')

End;

WriteLn;

i:=1;

k:=0;

While (A[i]>=0) and (i
Begin

k:=k+1;

i:=i+1

End;

if A[i]>=0 then k:=k+1;

WriteLn ('k = ', k) ;

S:=0;

For i: = i+1 to N do

S:=S+A[i];

WriteLn ('S = ', S:0:3) ;

ReadLn

End.