Question

Đã trả lời bởi chuyên gia

Answer 1

Sai không biết đâu nhé!

Bài 1:

program Bai1;

var arr: array of integer;

n, i, count: integer;

begin

write('Nhap do dai day so: ');

readln(n);

SetLength(arr, n);

count := 0; for i := 0 to n-1 do

begin

write('Nhap phan tu thu ', i+1, ': ');

readln(arr[i]);

if arr[i] mod 2 = 0 then count := count + 1;

end;

writeln('So luong gia tri chan trong day la: ', count);

readln;

end.

Bài 2:

program Bai2;

var arr: array of integer; n, i, sum: integer;

begin write('Nhap do dai day so: ');

readln(n);

SetLength(arr, n);

sum := 0;

for i := 0 to n-1 do

begin

write('Nhap phan tu thu ', i+1, ': ');

readln(arr[i]);

if arr[i] mod 2 = 0 then sum := sum + arr[i];

end;

writeln('Tong cac gia tri chan trong day la: ', sum);

readln;

end.

Bài 3:

program Bai3;

var arr: array of integer; n, i, max, min: integer;

begin

write('Nhap do dai day so: ');

readln(n);

SetLength(arr, n);

for i := 0 to n-1 do begin write('Nhap phan tu thu ', i+1, ': ');

readln(arr[i]);

if i = 0 then begin max := arr[i];

min := arr[i];

end else begin if arr[i] > max then max := arr[i];

if arr[i] < min then min := arr[i];

end;

writeln('Gia tri lớn nhat trong day la: ', max);

writeln('Gia tri nho nhat trong day la: ', min);

readln;

end.

Bài 4:

var a: array[1..100] of integer;

n, i, count, sum, sum_pos, count_pos: integer;

avg, avg_pos: real;

begin write('Nhap so phan tu cua mang: ');

readln(n);

// Nhap mang

for i := 1 to n do

begin

write('a[', i, '] = ');

readln(a[i]);

end;

// Dem so luong phan tu duong

count := 0;

for i := 1 to n do

begin

if a[i] > 0 then count := count + 1;

end;

writeln('So luong phan tu duong: ', count);

// Tinh tong cac phan tu duong sum := 0;

for i := 1 to n do

begin

if a[i] > 0 then sum := sum + a[i];

end;

writeln('Tong cac phan tu duong: ', sum);

// Tinh trung binh cac phan tu

avg := 0;

for i := 1 to n do begin avg := avg + a[i];

end;

avg := avg / n;

writeln('Trung binh cac phan tu: ', avg:0:2);

// Tinh trung binh cac phan tu duong

sum_pos := 0;

count_pos := 0;

for i := 1 to n do

begin

if a[i] > 0 then

begin

sum_pos := sum_pos + a[i];

count_pos := count_pos + 1;

end;

avg_pos := sum_pos / count_pos;

writeln('Trung binh cac phan tu duong: ', avg_pos:0:2);

end.

Bài 5:

program bai5;

const MAX = 100;

var a: array[1..MAX] of integer;

n, i, max, pos: integer;

begin write('Nhap so phan tu cua mang: ');

readln(n);

for i := 1 to n do begin write('a[', i, '] = ');

readln(a[i]);

end;

max := a[1];

pos := 1;

for i := 2 to n do

begin

if a[i] > max then

begin

max := a[i]; pos := i;

end;

writeln('Vi tri phan tu co gia tri lon nhat la: ', pos);

for i := 1 to n - 1 do

begin

for j := i + 1 to n do

begin

if a[i] > a[j] then

begin

temp := a[i];

a[i] := a[j];

a[j] := temp;

end;

writeln('Cac phan tu cua mang sau khi sap xep la:');

for i := 1 to n do begin write(a[i], ' ');

end;

readln;

end.

...Xem thêm

Answer 2

Sai không biết đâu nhé!

Bài 1:

program Bai1;

var arr: array of integer;

n, i, count: integer;

begin

write('Nhap do dai day so: ');

readln(n);

SetLength(arr, n);

count := 0; for i := 0 to n-1 do

begin

write('Nhap phan tu thu ', i+1, ': ');

readln(arr[i]);

if arr[i] mod 2 = 0 then count := count + 1;

end;

writeln('So luong gia tri chan trong day la: ', count);

readln;

end.

Bài 2:

program Bai2;

var arr: array of integer; n, i, sum: integer;

begin write('Nhap do dai day so: ');

readln(n);

SetLength(arr, n);

sum := 0;

for i := 0 to n-1 do

begin

write('Nhap phan tu thu ', i+1, ': ');

readln(arr[i]);

if arr[i] mod 2 = 0 then sum := sum + arr[i];

end;

writeln('Tong cac gia tri chan trong day la: ', sum);

readln;

end.

Bài 3:

program Bai3;

var arr: array of integer; n, i, max, min: integer;

begin

write('Nhap do dai day so: ');

readln(n);

SetLength(arr, n);

for i := 0 to n-1 do begin write('Nhap phan tu thu ', i+1, ': ');

readln(arr[i]);

if i = 0 then begin max := arr[i];

min := arr[i];

end else begin if arr[i] > max then max := arr[i];

if arr[i] < min then min := arr[i];

end;

writeln('Gia tri lớn nhat trong day la: ', max);

writeln('Gia tri nho nhat trong day la: ', min);

readln;

end.

Bài 4:

var a: array[1..100] of integer;

n, i, count, sum, sum_pos, count_pos: integer;

avg, avg_pos: real;

begin write('Nhap so phan tu cua mang: ');

readln(n);

// Nhap mang

for i := 1 to n do

begin

write('a[', i, '] = ');

readln(a[i]);

end;

// Dem so luong phan tu duong

count := 0;

for i := 1 to n do

begin

if a[i] > 0 then count := count + 1;

end;

writeln('So luong phan tu duong: ', count);

// Tinh tong cac phan tu duong sum := 0;

for i := 1 to n do

begin

if a[i] > 0 then sum := sum + a[i];

end;

writeln('Tong cac phan tu duong: ', sum);

// Tinh trung binh cac phan tu

avg := 0;

for i := 1 to n do begin avg := avg + a[i];

end;

avg := avg / n;

writeln('Trung binh cac phan tu: ', avg:0:2);

// Tinh trung binh cac phan tu duong

sum_pos := 0;

count_pos := 0;

for i := 1 to n do

begin

if a[i] > 0 then

begin

sum_pos := sum_pos + a[i];

count_pos := count_pos + 1;

end;

avg_pos := sum_pos / count_pos;

writeln('Trung binh cac phan tu duong: ', avg_pos:0:2);

end.

Bài 5:

program bai5;

const MAX = 100;

var a: array[1..MAX] of integer;

n, i, max, pos: integer;

begin write('Nhap so phan tu cua mang: ');

readln(n);

for i := 1 to n do begin write('a[', i, '] = ');

readln(a[i]);

end;

max := a[1];

pos := 1;

for i := 2 to n do

begin

if a[i] > max then

begin

max := a[i]; pos := i;

end;

writeln('Vi tri phan tu co gia tri lon nhat la: ', pos);

for i := 1 to n - 1 do

begin

for j := i + 1 to n do

begin

if a[i] > a[j] then

begin

temp := a[i];

a[i] := a[j];

a[j] := temp;

end;

writeln('Cac phan tu cua mang sau khi sap xep la:');

for i := 1 to n do begin write(a[i], ' ');

end;

readln;

end.

1 câu trả lời 396

Câu hỏi hot cùng chủ đề

Bài viết mới nhất Lớp 8