В ПАСКАЛЕ
10-11 класс
|
1. В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов.
2.Дан массив действительных чисел,размерность которого N. Подсчитать сколько в нем отрицательных положительных и нулевых элементов.
2 задача
program _2;
var a:array [1..n] of integer;
x,y,s,i:integer;
begin
for i:=1 to n do readln(a[i]);
s:=0;x:=0;y:=0;
for i:=1 to n do if a[i]=o then s:=s+1 else if a[i]>0 then x:=x+1 else if a[i]<0 then y:=y+1; writeln(s, x, y);end.
Другие вопросы из категории
Составьте программу, которая вычисляет сумму чисел от 1 до N. Значение N вводится с клавиатуры.
а) делением на 2
б) по схеме N в 10->N в 8->n в 2
в) по схеме N в 10->N в 16->n в 2
массива. Выведите на экран исходный массив и полученную разность .
"неудовлетворительно" , 3 - "удовлетворительно" , 4- "хорошо" , 5- "отлично". Если К не лежит в диапазоне 1-5 , вывести "ошибка".
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
constructor и destructor и для чего нужна?
4) Что такое implementation и для чего нужна?
5) Назовите модули Паскаль ( в строке Uses, например crt) и какие возможности этот модуль дает?
6) Что за тип переменной: указательный (Pointer)
7) И на последок: что означает символ @ , #, $ , ^
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
Вот код Паскаль:
var
f:array[1..500] of record
fam:string;
bal:boolean;
end;
buf:boolean;
str:string;