{ Pascal ABC.NET 3.2 Входной текстовый файл с числами ч/з один пробел. (в конце не должно быть пробелов!) } const f_in_name = 'd:\in9.txt'; f_tmp_name = 'd:\tmp.tmp'; var f_in,f_out: text; i, k: integer; begin Assign(f_in, f_in_name); Assign(f_out, f_tmp_name); Reset(f_in); Rewrite(f_out); k := 0; while not Eof(f_in) do begin Read(f_in, i); k := k + 1; if k mod 2 <> 0 then Write(f_out, ' ', i); end; Close(f_out); Close(f_in); DeleteFile(f_in_name); RenameFile(f_tmp_name, f_in_name); end.
Ввод с клавиатуры одномерного массива целых чисел и вывод его элементов на экран с противоположным знакомProgram Massiv2; const N=10; type { Раздел описания типов переменных. Эти типы определяет сам пользователь, то есть мы определяем тип одномерного массива из n целых чисел } Mas=array [1..N] of integer; { 1..N - тип индекса; для индекса выбран интервальный тип. то есть интервал целых чисел от 1 до N. где N определено в разделе const } var Line:Mas; { Line - одномерный массив, его тип определен нами как Mas } i:integer; {Переменная, хранящая индекс элемента массива, к которому идет обращение } begin { Ввод массива с клавиатуры } for i:=l to N do { Обращение к элементам массива происходит в цикле, по очереди } begin { Начало цикла ввода элементов массива } write('Введите элемент с индексом ' ,i,' :'); readln(Line[i]) { Обращаемся к i-му элементу массива (Line[l],Line[2] и т. д.)} end; { Конец цикла ввода элементов массива } { Вывод элементов происходит также в цикле:} for i:=l to N do { Перебираем все N элементов массива } write(-Line[i]:5); { 10 элементов выводятся в строку. Выводим все элементы массива с противоположным знаком } writeln; { После вывода массива элементов - переход на новую строку } readln end.
Вот наполнение массива рандомом. Если нужно наполнение с клавиатуры, то вместо a[i,j]:=random(100)-50; необходимо поставить read(a[i,j]);
const n=3; m=4; var a:array[1..n,1..m] of integer; var i, j, count:integer; begin count:=0; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100)-50; write(a[i,j]:3, ' '); end; writeln; end; for i:=1 to n do for j:=1 to m do begin if (a[i,j]<0) and (a[i,j] mod 2 <>0) then count:=count+1; end; writeln('Количество отрицательных нечетных элементов: ', count); end.
