нужно написать программу по паскалю: сформировать массив из десяти элементов.элементы могут иметь положительные,отрицательные и нулевые
5-9 класс
|
значения.посчитать количество положительных,отрицательных и нулевых элементов.
var a:array [1..100] of integer;
i,n,plus,minus,zero:integer;
Begin
randomize;
n:=10;
for i:= 1 to n do begin
a[i]:=random(n*10)- 10*n div 2 ;
write(a[i]:4);
if i mod 10=0 then writeln;
end;
for i:= 1 to n do begin
if a[i]<0 then plus:=plus+1;
if a[i]>0 then minus:=minus+1;
if a[i]=0 then zero:=zero+1;
end;
writeln(plus, minus, zero);
End.
Другие вопросы из категории
он клетки эл. табл.-это.. а)множество клеток,образующих область произвольной формуле в)множ. заполненных клеток ЭТ с)множ. пустых кл. ЭТ д)множ. кл.,обазующ. область квадр. формы
ачиная с нуля) , циклически сдвигаются вправо , а нечетные - влево на количество позиций, равных номеру разряда. Так, например циклический сдвиг цифры 7 на четыри позиции вправо дает нам 1 ( 7-8-9-0-1). Затем из нечетных цифр вычитается , а к четным прибавляется 1. Далее оба шага повторяются еще один раз. В результате шифровки получилось число 3216. Определите пароль.
четными значениями элементов массива.
Читайте также
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
Ввести пять чисел и найти наибольшее из них.
Я тут написал кое-что ,но не знаю правильно ли :(
HELP ME.
program ru;
var a,b,c,d,e,max:integer;
begin
writln('Введите пять целых чисел');
if a>b then
begin
max:=a;
end
else begin
max:=b;
end;
if max>c then
begin
max:=max;
else begin
max:=c;
end;
if d>e then begin
max:=d;
end
else begin
max:=e;
end.
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
Нужно написать программу в Паскале.
Между А и Б сопротивление
R1, R(общее R2, R3), R4 соединены последовательно, а R2 и R3 параллельно.
Т.е. общее сопротивление равно..
R=R1+(R2*R3)/(R2+R3)+R4
на основании этой формулы нужна программа.
Пользователь вводит пять чисел. Программа выводит ответ: "Максимальное число ... ".
Написать программу в "КуМиРе"