Задачи с массивами

[Alenchik]

Помогите пожалуйста решить задачи:
1. В целочисленной последовательности есть нулевые элементы. Определить количество этих элементов.
2. В одновременном массиве размещены: в первых N элементах значение аргумента, в следующих - соответствующие им значения функции. Напечатать элименты этого массива в виде двух параллельных столбцов (аргумент и значение функции).

[rubius2008]

Сообщение от Alenchik

Помогите пожалуйста решить задачи:
1. В целочисленной последовательности есть нулевые элементы. Определить количество этих элементов.
2. В одновременном массиве размещены: в первых N элементах значение аргумента, в следующих - соответствующие им значения функции. Напечатать элименты этого массива в виде двух параллельных столбцов (аргумент и значение функции).

1.

for i:=1 to n do if a[i]=0 then k:=k+1;

2.

for i:=1 to n do writeln(a[i]:7:2,a[n+i]:7:2);

Если нужны полные тексты программ пиши в асю 600-927-970

[GetMax]

Const
  Mas_koef:Array[1..4] of Byte = (2,3,4,5);
  Mas_step:Array[1..4] of Byte = (1,2,3,4);
begin
  Writeln('P(x) = ',Mas_koef[1]*Mas_step[1],' + ',Mas_koef[2]*Mas_step[2],'x',
  ' + ',Mas_koef[3]*Mas_step[3],'x^',Mas_step[3]-1, ' + ', Mas_koef[4]*Mas_step[4],'x^',Mas_step[4]-1);
  Readln
End.

[Vikenty]

Сообщение от Alenchik

Помогите пожалуйста решить задачи:
1. В целочисленной последовательности есть нулевые элементы. Определить количество этих элементов.
2. В одновременном массиве размещены: в первых N элементах значение аргумента, в следующих - соответствующие им значения функции. Напечатать элименты этого массива в виде двух параллельных столбцов (аргумент и значение функции).

Зачем писать в чужую тему?

[Stilet]

А я в следующий раз в баньку автора пошлю...