Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 08.09.2009
Сообщений: 17
1

Подсчитать количество элементов, для которых A(I)>B(I), A(I)<B(I), A(I)=B(I)

08.09.2009, 18:00. Показов 1152. Ответов 2
Метки нет (Все метки)

2)Даны целочисленные таблицы А(1:N) и B(1:N). Подсчитать количество элементов, для которых A(I)>B(I), A(I)<B(I), A(I)=B(I).
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.09.2009, 18:00
Ответы с готовыми решениями:

Подсчитать количество элементов, для которых выполняется неравенство
Здравствуйте! Написал код для следующей задачи: подсчитать количество элементов, для которых...

Подсчитать количество элементов, для которых выполняется условие
В Турбо Паскале. Сформировать двумерный массив А(10х10) из случайных чисел и подсчитать количество...

Подсчитать в массиве количество элементов, ближайшим целых для которых является 2
Даны два масива по 20 элементов. Получить третий как произведение первого и второго. В третьем...

Подсчитать количество элементов одномерного массива, для которых выполняется неравенство i*i<ai<i!
Подсчитать количество элементов одномерного массива, для которых выполняется неравенство i*i&lt;ai&lt;i!

__________________
2
1850 / 1172 / 189
Регистрация: 27.03.2009
Сообщений: 4,512
08.09.2009, 18:30 2
Лучший ответ Сообщение было отмечено Slavian как решение

Решение

вторая
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
program kkk;
uses crt;
const n=3;
var a:array[1..n] of integer;
b:array[1..n] of integer;
i,s1,s2,s3:integer;
begin
clrscr;
s1:=0;
s2:=0;
s3:=0;
writeln('Vvedite tablitsu A:');
for i:=1 to n do
readln(a[i]);
writeln('Vvedite tablitsu B:');
for i:=1 to n do
readln(b[i]);
for i:=1 to n do
begin
if a[i]>b[i] then
s1:=s1+1
else
if a[i]<b[i] then
s2:=s2+1
else
s3:=s3+1;
end;
writeln('A(I)>B(I): ',s1:2);
writeln('A(I)<B(I): ',s2:2);
writeln('A(I)=B(I): ',s3:2);
readln
end.
0
0 / 0 / 0
Регистрация: 08.09.2009
Сообщений: 17
08.09.2009, 18:34  [ТС] 3
спасибо большое выручил)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.09.2009, 18:34

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Подсчитать количество таких элементов массива, для которых выполняется условие
Заданы 2 массива А и В , каждый из которых содержит n элементов. Подсчитать количество таких k,...

Подсчитать количество элементов массива, ближайшим целым числом для которых является 1
Дано натуральное число n. Подсчитать для массива действительных чисел(x1,x2.....xn) количество...

Для каждого столбца подсчитать количество элементов , у которых последняя цифра четная
Для каждого столбца подсчитать количество элементов , у которых последняя цифра четная(заранее...

Для каждого столбца подсчитать количество элементов, у которых последняя цифра четная
Написать программу двумерные массивы. Для каждого столбца подсчитать количество элементов, у...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.