1.Дан массив натуральных чисел. Найти сумму элементов кратных данному К. 2.В целочисленной последовательности есть нулевые элементы.Создать массив из номеров этих элементов. 3. дана последовательность целых чисел а1, а2,...аn. ...
1.Дан массив натуральных чисел. Найти сумму элементов кратных данному К. 2.В целочисленной последовательности есть нулевые элементы.Создать массив из номеров этих элементов. 3. дана последовательность целых чисел а1, а2,...аn. Выяснить, какое число встречается раньш положитльно или отрицатльное. 4. Дана последоватльность действительных чисел а1,а2,...аn. Выяснить,будет ли она возрастающей.
Гость
Ответ(ы) на вопрос:
Гость1.
Program num1;
Uses crt;
Var
a :array [1..100] of integer;
i,k,n, s : integer;
Begin
clrscr;
s:=0;
write('K=');readln(k);
write('N=');readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if (a[i] MOD k)=0 then s:=s+a[i];
writeln('S=',s);
End. 2. Program num2;
Uses crt;
Var
a :array [1..100] of real;
i,n,j : integer;
x : array [1..100] of real;
Begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
readln(a[i]);
j:=1;
for i:=1 to n do
if a[i]=0 then
begin
x[j]:=i;
j:=j+1
end;
for i:=1 to j-1 do
write(x[i],' ');
End. 3. Program num3;
Uses crt;
VAr
a :array [1..100] of real;
i,n : integer;
Begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
if a[i]<>0 then
if a[i]>0 then
begin
writeln('Положительное встречается раньше');
break
end else
begin
writeln('Отрицательное встречается раньше');
break
end;
end;
End. 4. Program num4;
Uses crt;
Var
a : array [1..100] of real;
i, n, j :integer;
Begin
clrscr;
write('n=');readln(n);
a[n+1]:=a[n]+1;
for i:=1 to n do
readln(a[i]);
j:=0;
i:=1;
while i
Не нашли ответ?
Похожие вопросы