program van;
var
a:array [1..100] of integer;
i,n,s,k:integer;
p:real;
begin
s:=0;
k:=0;
p:=1;
write('Введите кол-во элементов ');
read(n);
writeln('Введите массив');
for i:=1 to n do
begin
read(a[i]);
if a[i]=0 then
k:=k+1;
if a[i]<0 then
s:=s+a[i];
if a[i]>0 then
p:=p*a[i];
end;
writeln('Количество нулевых элементов= ',k);
writeln('Сумма отрицательных элементов= ',s);
writeln('Произведение положительных элементов= ',p)
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

19.05.2015, 14:28

Ответы с готовыми решениями:

Перевести из паскаля в фортран
program KAV; var a,b,c,r:real; begin writeln ('vvedite a,b,c'); readln (a,b,c); If (a<>0) and...

Перевести с Паскаля на Фортран
uses crt; type Link = ^Number; Number = record ID: integer; Cislo : real; NextRec: Link;...

Перевести код с Паскаля на Фортран
собсна, просто перевести код. желательно не усложнять программу. заранее спасибо uses crt;...

К сможет перевести простой код с Паскаля на Фортран?
С Фортрана на Паскаль можно конвертировать с помощью разных программ а обратной не нашла....

	19.05.2015, 14:28

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

19.05.2015, 14:28

Помогаю со студенческими работами здесь

Перевести программу с паскаля на фортран, используя Параллельные вычисления и OpenMP
Есть несложная программа на паскале, надо ее перевести в фортран с помощью параллельных вычислений...

Каким образом можно перевести код Паскаля в код Фортран?
Здравствуйте уважаемые программисты! Может быть банальная, но довольно сложная проблема - перевод...

Помогите перевести на С++ или Делфи
Помогите, пожалуйста, перевести код в си билдер или делфи. PROGRAM sfer2 C ў®«*®ў*п ¬®¤Ґ«м...

Перевести из с++ в Делфи!
#include<iostream> using namespace std; main() { int n,m; int l,i,j,q; cin » n; cin » m;...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх