Погите пожалуйста. Нужно написать задачи ** языке Паскаль. 1. С клавиатуры заполнить...

Question

Погите пожалуйста. Нужно написать задачи на языке Паскаль.
1. С клавиатуры заполнить целочисленный одномерный массив. вывести неотрицательные элементы массива.
2. дан одномерный массив целых чисел. Определить каких элементов больше, максимальных и минимальных
3. дан одномерный массив целых чисел. Подсчитать количество элементов, равных заданному массиву x. Число х вводится с клавиатуры

Comments

с какими индексами массив нужен?

---

размерность

---

С любыми индексами. Это все условие.

Answer 1

1)
var 
a: array [1..5] of integer;
i,k:integer;
Begin
Writeln('Перечислите элементы массива: ');For i:=1 to 5 do
read(a[i]);
For i:=1 to 5 do 
If (a[i] > -1) then write(a[i]:2);
End.
2)
var 
a: array [1..5] of integer;
i,k1,k2,max,min:integer;
Begin
min:=MaxInt;
max:=-MaxInt;
Writeln('Перечислите элементы массива: ');
For i:=1 to 5 do 
begin
read(a[i]);
if (a[i] > max) then max:=a[i];
if (a[i] < min) then min:=a[i];
end;
For i:=1 to 5 do 
begin
If (a[i] = max) then inc(k1);
If (a[i] = min) then inc(k2);
end;
If (k1>k2) then writeln('Больше max элементов') 
else writeln('Больше min элементов');
End.
3)
var 
a: array [1..5] of integer;
i,k,x:integer;
Begin
Write ('X = ');
read(x);
Writeln('Перечислите элементы массива: ');
For i:=1 to 5 do begin     read(a[i]);
if (a[i] = x ) then inc(k);
end;  
writeln('kol = ',k) ;
end.

Comments

огромное спасибо!