Практикум по решению задач на ЭВМ. Тарова И.Н - 42 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.
n:=0;
for i:=1 to SIZE do
begin
write('a[',i,']->');
readln(a[i]);
if a[i]<>0 then n:=n+1;
end;
writeln('в массиве ',n,' не нулевых элементов.');
end.
4) Даны целые числа a
1
,…,a
12
. Получить новую последовательность, ис-
ключив из исходной все члены со значением max(a
1
,…a
12
).
uses CRT;
const
SIZE=5; {размер массива}
var
a:array[1..SIZE] of integer;
b:array[1..SIZE] of integer;
max:integer;
i,p:integer;
begin
clrscr;
p:=0;
writeln('ввод массива целых чисел.');
write('после ввода каждого числа ');
writeln('нажимайте <enter>');
for i:=1 to SIZE do readln(a[i]);
max:=a[1];
for i:=2 to SIZE do
if a[i]>max then max:=a[i];
for i:=1 to SIZE do
begin
if a[i]<>max then
begin
p:=p+1;
42
                                Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


    n:=0;
    for i:=1 to SIZE do
       begin
          write('a[',i,']->');
          readln(a[i]);
          if a[i]<>0 then n:=n+1;
       end;
    writeln('в массиве ',n,' не нулевых элементов.');
  end.




  4) Даны целые числа a1,…,a12. Получить новую последовательность, ис-
ключив из исходной все члены со значением max(a1,…a12).

  uses CRT;
  const
    SIZE=5; {размер массива}
  var
    a:array[1..SIZE] of integer;
    b:array[1..SIZE] of integer;
    max:integer;
    i,p:integer;
  begin
    clrscr;
    p:=0;
    writeln('ввод массива целых чисел.');
    write('после ввода каждого числа ');
    writeln('нажимайте ');
    for i:=1 to SIZE do readln(a[i]);
    max:=a[1];
    for i:=2 to SIZE do
       if a[i]>max then max:=a[i];
    for i:=1 to SIZE do
       begin
          if a[i]<>max then
             begin
                p:=p+1;


                                      42

Страницы