yura_1234
offline
Опыт:
1,212Активность: |
Информатика
Помогите(напишите) пожалуста на паскаль задачи: 1.Создать массив из вещественных чисел, найти сумму значения элементов которые находятся на чётных позициях. 2.С клавиатуры вводится последовательность целых чисел, которые заканчиваются 9999, определить сколько отрицательных и положительных. |
02.05.2011, 14:30 | #1
+0/−0
Профиль |
Приват |
Поиск |
Цитата |
IP: Записан
|
warlock2
offline
Опыт:
218Активность: |
1.
var a:array[1..1000] of real; s :real; n,i:integer; begin writeln('vvedite kolichestvo elementov massiva: '); readln(n); writeln('vvedite elementi massiva: '); for i:=1 to n do begin write('a1='); readln(a[1]); end; s :=0; for i:=1 to n do if((i mod 2)=0) then s :=s+a[i]; writeln(s); end. так вроде i, n, k1, k2: integer; begin writeln('vvedite kolichestvo elementov massiva: '); readln(n); writeln('vvedite elementi massiva: '); for i:=1 to n do begin write('a1='); readln(a[1]); end; k1:=0; k2:=0; for i:=1 to n do if (a[i] > 0) then k1:=k1+1 else if (a[i] < 0 ) then k2:=k2+1; writeln('Polojitelnih: ', k1); writeln('Otricatelnih: ', k2); end. Отредактировано warlock2, 02.05.2011 в 14:48. |
02.05.2011, 14:40 | #2
+0/−0
Профиль |
Приват |
Поиск |
Цитата |
IP: Записан
|
yura_1234
offline
Опыт:
1,212Активность: |
warlock2, робит? |
02.05.2011, 19:07 | #3
+0/−0
Профиль |
Приват |
Поиск |
Цитата |
IP: Записан
|