Задачи в паскале.

[cjcezar]

Уже несколько часов бьюсь об стену. Сдвинуться не могу. Может кто помочь решить хотя бы одну-две из трех задачек?

1. Дан одномерный вещественный массив А (N) . Определить сумму отрицательных элементов этого массива.

2. Дан одномерный целочисленный А(N) . Определить произведение четных по значению элементов этого массива.

3. Дан одномерный целочисленный массив А(N) . Определить среднее арифметическое значение элементов этого массива кратных пяти

[Rififi]

cjcezar

Учитывая уровень задач, усилия должно быть были титанические :lol:

ну дык продемонстрируй результат биения (((Ж

[cjcezar]

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

cjcezar

Учитывая уровень задач, усилия должно быть были титанические :lol:

ну дык продемонстрируй результат биения (((Ж

учитывая, что эти задачи мне вообще не по профилю и я учусь на врача и не совсем понимаю зачем нам препод задает эти задачи, скажу честно, что результатов и нет

[cheef]

1.
if a[i]<0 then sum := sum + a[i];
2.
if a[i] mod 2 = 0 then rez:= a[i] * rez;

[Rififi]

cjcezar

поскольку было заявлено о нескольких часах (никто тебя за язык не тянул) вот я и интересуюсь: а чем ты занимался эти несколько часов?

[cjcezar]

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

cjcezar

поскольку было заявлено о нескольких часах (никто тебя за язык не тянул) вот я и интересуюсь: а чем ты занимался эти несколько часов?

Учил анатомию и паралельно вычитывал про паскаль, поняв, что паскаль сложнее анатомии, я решил обратиться за помощью, немного преукрасив историю..

[andrey256]

1. program pas;
uses crt;
const
N=10;
var
A:array[1..N] of integer;
i,sum:integer;
begin
clrscr;
sum:=o;
for i:=1 to N do
begin
writeln('введите число');
readln(A[i]);
end;
for i:=1 to N do
begin
if A[i]<0 then
sum:=sum+A[i];
end;
writeln('сумма равна',sum);
readln;
end.

[Rififi]

cjcezar

немного преукрасив историю..

Интересно, а будущим пациентам ты тоже будешь "немного приукрашивать историю.. " :lol:
мне страшно за будущее нашей медицины

первая задача:

program Summa;
type V = array[0..9] of integer; 
var v : V;
    i : integer;
    sum : integer;
begin
 write('Введите массив: ');
 for i:=0 to 9 do read(v[i]);
  sum := 0;

  for i:=0 to 9 do begin
   if v[i] < 0 then sum := sum + v[i];
  end;

  writeln("Сумма: ", sum);
 end.

[andrey256]

2. program pas;
uses crt;
const
N=10;
var
A:array[1..N] of integer;
i,pr:integer;
begin
clrscr;
pr:=1;
for i:=1 to N do
begin
writeln('введите число');
readln(A[i]);
end;
for i:=1 to N do
begin
if i mod 2=0 then
pr:=pr*A[i];
end;
writeln('произведение=',pr);
readln;
end.

[cjcezar]

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

cjcezar

немного преукрасив историю..

Интересно, а будущим пациентам ты тоже будешь "немного приукрашивать историю.. " :lol:
мне страшно за будущее нашей медицины

Это кстати необходимо во многих случаях. Нужно искать пути, что бы пациент не пошел и не покончил жизнь самоубийством после диагноза этому учат как раз на психологии =Р


За задачи спасибо большое, всем. Я очень Вам благодарен! От души.