Вопрос по информатике:
Программы к этим задачам нужно написать на Pascal ABC.Заранее спасибо)
1)Даны два массива: A[1:2] и B [1:20].Найдите и выведите на экран только те элементы этих массивов,значения которых совпадают.Например если A[2]=B[2]=4,то на экран надо вывести : номер 2 значение 4.Если таких совпадений нет,то вывести на экран соообщение об этом.
2)дан массив из 10 чисел.Подсчитайте в этом массиве количество положительных и отрицательных значений.
- 13.05.2018 13:38
- Информатика
- remove_red_eye 19355
- thumb_up 83
Ответы и объяснения 1
1) var A: array [1..2] of real;
B: array [1..20] of real;
i:integer;
c:boolean;
begin
c:=false;
readln(a[1],a[2]);
for i:=1 to 20 do begin
readln(b[i]);
if (b[i]=a[1]) then begin writeln('A[1]=B[',i,']=',b[i]);c:=true; end;
if (b[i]=a[2]) then begin writeln('A[2]=B[',i,']=',b[i]);c:=true; end;
end;
if c=false then writeln('Совпадений не найдено');
end.
2) var a:array[1..10] of real;
npol,notr,i: integer;
begin
npol:=0;
notr:=0;
for i:=1 to 10 do begin
readln(a[i]);
if a[i]>0 then npol:=npol+1;
if a[i]<0 then notr:=notr+1;
end;
writeln('Количество положительных значений: ',npol,', количество отрицательных значений: ',notr);
end.
- 14.05.2018 18:23
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.