Напишите программу на языке Pascal.Элементы массива А, удовлетворяющие условию А(i)>5.5, переписать в массив В, а элементы, удовлетворяющие условию
10-11 класс
|
А(i)<=5.5, переписать в массив С. В массиве А m элементов.
var
A,B,C: array[1..100] of integer;
i,n,j,k:integer;
begin
randomize;
j:=0;
k:=0;
Readln(n);
Writeln('Исходный массив:');
for i:=1 to n do
begin
A[i]:=random(10);
writeln('A[',i,']=',A[i]);
end;
for i:=1 to n do
if A[i]>5.5
then
begin
j:=j+1;
B[j]:=A[i];
end;
for i:=1 to n do
if A[i]<=5.5
then
begin
K:=k+1;
C[k]:=A[i];
end;
for i:=1 to j do
writeln('B[',i,']=', B[i]);
for i:=1 to k do
writeln('C[',i,']=', C[i]);
end.
Другие вопросы из категории
того. На диаграмме I отражено количество рабочих с различными разрядами, а на диаграмме II – распределение рабочих по специальностям. Каждый рабочий имеет только одну специальность и один разряд. Отметьте истинные высказывания:
1. В цехе трудятся 100 рабочих.
2. В цехе трудятся 50 слесарей.
3. В цехе трудятся 25 фрезеровщиков.
4. Все токари могут иметь 3 разряд.
5. Все рабочие третьего разряда могут быть токарями.
6. Все рабочие третьего разряда могут быть фрезеровщиками.
7. Все слесари могут иметь пятый разряд.
8. Все токари могут иметь четвертый разряд.
Сегодня Али в местном магазине сделал покупку за С тенге. Он только хотел расплатится и услышал от продавца фразу "Без сдачи пожалуйста, молодой человек" . У него есть N монет достоинства а1, а2, ...., аN тенге. Определите, сможет ли он расплатится без сдачи.
формат входных данных
В первой строке входного файла записаны два целых числа С (1 ≤С ≤ 1000) и
N
(1 ≤ N ≤ 15)- общая сумма покупки и количество монет у Али соотвественно. Во второй строке записаны N целых чисел
а1, а2, ...., аN (1
≤ai ≤ 1000 )-достоинства монет Али.
Формат выходных данных
В единсвенной строке выведите слово "YES", если Али сможнт расплатится без сдачи. Иначе, выведите "NO"
Читайте также
частное. Напишите на языках Pascal и C++ программу, моделирующую выбор одной из костей домино ( в наборе 28 костей домино, каждая состоит из двух половин, на каждой половине – от 0 до 6 очков). С помощью этой программы ответьте на вопрос: какова вероятность того, что выпадет кость с числом очков, кратным 3
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.
программу на языке Pascal
индексов элементов главной диагонали.Выведите на экран исходный и измененный массивы (программа на языке Паскаля)
2)Составьте программу формирования и вывода на экран одномерного массива, состоящего из удвоенных минимальных элементов строк двумерного массива, заданного с помощью датчика случайных чисел
элементов всех нечетных элементов массива которые делятся на 3
на языке Pascal желательно