2 задание (Все готовые лабы по паскалю)
Описание файла
Файл "2 задание" внутри архива находится в следующих папках: 1kyrs_1semestr_paskal_labworks, 4 лабораторка. Документ из архива "Все готовые лабы по паскалю", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве МГТУ им. Н.Э.Баумана. Не смотря на прямую связь этого архива с МГТУ им. Н.Э.Баумана, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информатика" в общих файлах.
Онлайн просмотр документа "2 задание"
Текст из документа "2 задание"
2. даны: натуральное число n, действительные числа . Среди нет повторяющихся чисел, нет и среди . Построить пересечение последовательностей ( т.е. получить в каком-нибудь порядке все числа, принадлежащие последовательности и последовательности одновременно.
-
Текст программы:
var
n,i,k: integer; a: array[1..16] of real; b :array[1..100] of real;
begin
write('n=');
readln (n);
for i:=1 to 16 do begin
write ('a',i,'=');
readln (a[i]);
end;
for i:=1 to n do begin
write ('b',i,'=');
readln (b[i]);
end;
for i:=1 to 16 do begin
for k:=1 to n do begin
if a[i] = b[k] then
writeln ('resultat=',a[i]);
end;
end;
readln; readln;
end.
да
нет