Làm việc với mảng 2 chiều trong Turbo Pascal
Chương trình dưới đây thực hiện nhập dữ liệu cho mảng số nguyên 2 chiều. Cần nhập vào giá trị số hàng, số cột (nhỏ hơn 20) và trị số các phần tử của mảng (số nguyên). Chương trình thực hiện công việc in ra mảng số dạng ma trận sau đó thực hiện tìm các phần tử có giá trị lớn nhất của các hàng và các cột rồi in ra màn hình.

program mang2chieu;

uses crt;

var

A: array[1..20,1..20] of integer;

col: integer; {so cot trong mang}

row: integer; {so hang trong mang}

i,j, max: integer;

sumcan:real;

begin

{Ma nguon tham khao tai www.chiasethongtin.com}

      clrscr;{Xoa man hinh}

      writeln('NHAP GIA TRI DAU VAO');

      write('So hang: '); readln(row);

      write('So cot: '); readln(col);

      writeln('NHAP GIA TRI CUA MANG');

      For i := 1 to row do

      Begin

         For j:= 1 to col do

         Begin

         Write('Nhap phan tu a[' ,i ,',',j,']: '); Readln(a[i,j]);

         End;

      End;

      clrscr;{Xoa man hinh}

      writeln('GIA TRI MANG DA NHAP');

      {In gia tri nhap cua mang ra man hinh}

      For i := 1 to row do

      Begin

         For j:= 1 to col do

         Begin

         Write(a[i,j]:5,' ');

         End;

         writeln;

      End;

      {Tim gia tri lon nhat cua cac hang}

      writeln('GIA TRI LON NHAT CUA CAC HANG');

      For i := 1 to row do

      Begin

         max := a[i,1];

         For j:= 1 to col do

         Begin

              if a[i,j] > max then max := a[i,j];

         End;

         writeln('Hang ':0, i:2,': ', max);

      End;

      {Tim gia tri lon nhat cua cac cot}

      writeln('GIA TRI LON NHAT CUA CAC COT');

      For i := 1 to col do

      Begin

         max := a[1,col];

         For j:= 1 to row do

         Begin

              if a[j,i] > max then max := a[j,i];

         End;

         write('Cot ':0, i:2,': ', max, '   ');

      End;

      readln;

 End.

Bài viết cùng danh mục

10 cách giữ ấm cơ thể cực hay trong ngày rét
Thời tiết mùa đông làm cho con người dễ mắc các bệnh truyền nhiễm như ho, cảm lạnh, cảm cúm.... Để bảo vệ sức khỏe trong mùa đông cần thực hiện những biện pháp dưới đây.
6 cách chống lạnh, phòng bệnh hiệu quả khi rét đột ngột
Cơ thể run rẩy là dấu hiệu cho thấy bạn đang mất nhiệt và rất dễ bị cảm lạnh, thậm chí với người cao tuổi có thể gây đột quỵ. Một số lưu ý dưới đây giúp bạn chống lạnh hữu hiệu.
10 điều nhất định phải làm trong ngày lạnh đầu đông
Chưa quá lạnh nhưng cũng đủ để bạn phấn khích vì mùa đông đã thực sự về, hãy chắc chắn là bạn đã làm 10 điều sau đây để tận hưởng những ngày đầu đông hiếm hoi này nhé.
Thải độc gan với những thực phẩm quen thuộc ít người biết
Gan là cỗ máy thải độc cho cơ thể. Cỗ máy này cũng cần được nghỉ ngơi và được chăm sóc đúng cách để luôn hoạt động hiệu quả.
Thực phẩm rẻ tiền nhưng bổ thận không ngờ
Chế độ ăn uống rất quan trọng đối với sức khỏe. Những thực phẩm sau không chỉ tốt cho sức khỏe nói chung mà còn giúp bồi bổ cho thận, cơ quan cực kỳ quan trọng của cơ thể.