---
title: "pascal массив"
description: "пример: даны целые числа а1...аn создайте новый (цепь -по моему массив)тiзбек :если аbs(аi) не равн..."
author: "dan_ntu"
published: "2011-11-24T03:00:45+00:00"
modified: "2011-11-24T03:00:45+00:00"
locale: "ru"
canonical_url: "https://yvision.kz/post/pascal-massiv-208287"
markdown_url: "https://yvision.kz/post/pascal-massiv-208287/markdown"
site_name: "Yvision.kz"
---

# pascal массив

> пример: даны целые числа а1...аn создайте новый (цепь -по моему массив)тiзбек :если аbs(аi) не равн...

пример: даны целые числа а1...аn создайте новый (цепь -по моему массив)тiзбек :если аbs(аi) не равно mах(аi...аn), тогда заменить аi- в массиве нулями , в противном случае заменить аi- на 1 . (i=1...n) =>индекс

> program esep1; uses crt; var n,k,max,i:integer; a: array[1..100] of integer; b: array[1..100] of integer; begin clrscr; write('Vvedite n->'); readln(n); for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; for i:=1 to n do b[i]:=a[i]; max:=a[1]; for i:=2 to n do begin if (a[i]>max) then max:=a[i]; end; for i:=1 to n do if (abs(a[i])=max) then b[i]:=1 else b[i]:=0; writeln; writeln; writeln('Massiv a'); writeln; for i:=1 to n do write('a[',i,']=',a[i],' '); writeln; writeln; writeln('Massiv b'); writeln; for i:=1 to n do write('b[',i,']=',b[i],' '); readkey; end.

---

Source: [https://yvision.kz/post/pascal-massiv-208287](https://yvision.kz/post/pascal-massiv-208287)