Форумы-->Форум для внеигровых тем-->
| Автор | Информатика.Turbo Pascal. |
|---|
1)Все числа,которые больше своего порядкового номера, заменить заданным числом Z1.
2)Сортировка массива по неубыванию.
3)Удалить нечётные чила.
И проверьте программы:
Найти количество и сумму наибольших чисел:
program kolvo;
VAR
a: ARRAY[1..n] of real;
S,K: integer;
n: integer;
max :real;
BEGIN
FOR i:=1 TO u DO
Begin
Write(i);
Readln(a[i]);
End;
Max:=a[0];
For i:=1 to n do
if max<a[i] then max:=a[i];
Readln;
S:=0
For i:=1 to n do
if max=a[i] then S:=S+1 ;
K:=S*a[i]
writeln(S,K);
END.
Переписать в другой массив числа не кратные заданным P и Q.
Program perezapisat;
const n=40;
var
A:array [1..n] of integer;
B:array [1..n] of integer;
i,k:integer;
begin
writeln();
k:=0;
for i:=1 to n do begin
A[i]:=random(100);
write(a[i],’ ‘);
if (a[i] mod P = 0) and (a[i] mod Q = 0) then begin
k:=k+1;
b[k]:=a[i];
end;
end;
writeln();
if k=0 then writeln(’Net ne kratnih elementov’)
else for i:=1 to k do write(b[i],’ ‘);
end.
ЗАРАНЕЕ СПАСИБО !!! | | Сортировка пузырьком | В первой программе ошибки:
1)во втором цикле for поставь после then - begin и end, там две команды должны выполняться
2)не задано n вообще, по умолчанию оно будет нуль и массив будет из нуля элементов). либо переведи n в константы, либо вводи с клавы
3)в первом цикле For описка? вмесо n - u
4)у тебя в переменной k считается произведние чисел(да еще заведомо равное нулю, так как по умолчанию начальное значение к=0), а не сумма, исправь
5)не ошибка, но странно - зачем max веществнного типа? нелогично, целого лучше объяви
По поводу остального - А сколько, собственно, составит твоя благодарность? :) | | + | | + |
К списку тем
|
