Var a:array[1..10] of integer;
b:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin;
readln(a[i]);
if a[i]<0 then
begin;
k+=1;
b[k]:=i;
end;
end;
writeln('Индексы отрицательных');
for i:=1 to k do
writeln(b[i]);
writeln('Всего:',k);
end.<span> </span>
Program BiFi;
Var x,a,s:real;
k,i:integer;
Begin
readln(x);
readln(k);
s:=0;
a:=x;
for i:=1 to k do begin a:=a/x;
s:=s+a;
writeln(s:6:3);
readln;
end.
S=0
i=1
<======================================
Если A(i, i) не равно 100 то S=S+A(i, i) ||
i=i+1 ||
если i < 6 то перейти на ===================
иначе печатать S (сумма)
вот и алгоритм
Если я правильно понимаю, то вместо букв нужно поставить их порядковый номер в алфавите:
1. 8842 ; 19014178
2. 9290; 2171410
3. 8849; <span>2236946</span>
1_2.
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(81)+20;
write(a[i],' ');
end;
writeln;
writeln('Полученный массив:');
for i:=1 to n do
begin
if a[i] mod 2=0 then a[i]:=3 else a[i]:=-3;
write(a[i]:3);
end;
writeln;
end.
Пример:
Исходный массив:
49 25 50 90 82 20 71 25 57 45
Полученный массив:
-3 -3 3 3 3 3 -3 -3 -3 -3
1_3.
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(81)+20;
write(a[i],' ');
end;
writeln;
writeln('Полученный массив:');
for i:=1 to n do
begin
if i mod 2=0 then a[i]:=3 else a[i]:=-3;
write(a[i]:3);
end;
writeln;
end.
Пример:
Исходный массив:
85 29 99 27 80 70 70 58 78 46
Полученный массив:
-3 3 -3 3 -3 3 -3 3 -3 3