Массивы и усл. оператор

Массивы и усл. оператор

1st - 5th Grade

9 Qs

quiz-placeholder

Similar activities

QBASIC Programming

QBASIC Programming

5th - 10th Grade

10 Qs

on toan 5

on toan 5

2nd Grade

12 Qs

bài 4 tin 10(M.Hiền)

bài 4 tin 10(M.Hiền)

1st Grade

10 Qs

Internet

Internet

4th - 6th Grade

11 Qs

kiểm tra 1

kiểm tra 1

4th Grade

10 Qs

Computer practice quiz for class 1

Computer practice quiz for class 1

1st Grade

10 Qs

JENIS-JENIS MEDAN

JENIS-JENIS MEDAN

1st - 6th Grade

10 Qs

G2-W9-COPY AND PASTE

G2-W9-COPY AND PASTE

2nd Grade

12 Qs

Массивы и усл. оператор

Массивы и усл. оператор

Assessment

Quiz

Computers

1st - 5th Grade

Practice Problem

Medium

Created by

Alexandra Ryabkova

Used 11+ times

FREE Resource

AI

Enhance your content in a minute

Add similar questions
Adjust reading levels
Convert to real-world scenario
Translate activity
More...

9 questions

Show all answers

1.

FILL IN THE BLANK QUESTION

15 mins • 1 pt

Var k, m: integer;

Dat: array[1..10] of integer;

Begin

Dat[1] := 12; Dat[2] := 15;

Dat[3] := 17; Dat[4] := 15;

Dat[5] := 14; Dat[6] := 12;

Dat[7] := 10; Dat[8] := 13;

Dat[9] := 14; Dat[10] := 15;

m := 0;

for k := 1 to 10 do

if Dat[k] > m then

begin

m := Dat[k];

end;

writeln(m);

End.

2.

FILL IN THE BLANK QUESTION

15 mins • 1 pt

Var k, m: integer;

Dat: array[1..10] of integer;

Begin

Dat[1] := 12; Dat[2] := 15;

Dat[3] := 17; Dat[4] := 15;

Dat[5] := 14; Dat[6] := 12;

Dat[7] := 10; Dat[8] := 13;

Dat[9] := 14; Dat[10] := 15;

m := 0;

for k := 1 to 10 do

if Dat[k] > 12 then

begin

m := m + 1;

end;

writeln(m);

End.

3.

FILL IN THE BLANK QUESTION

15 mins • 1 pt

Var k, m: integer;

Dat: array[1..10] of integer;

Begin

Dat[1] := 56; Dat[2] := 70;

Dat[3] := 20; Dat[4] := 41;

Dat[5] := 14; Dat[6] := 22;

Dat[7] := 30; Dat[8] := 12;

Dat[9] := 65; Dat[10] := 35;

m := 100;

for k := 1 to 10 do

if Dat[k] < m then

begin

m := Dat[k];

end;

writeln(m);

End.

4.

FILL IN THE BLANK QUESTION

15 mins • 1 pt

Var k, m: integer;

Dat: array[1..10] of integer;

Begin

Dat[1] := 56; Dat[2] := 70;

Dat[3] := 20; Dat[4] := 41;

Dat[5] := 14; Dat[6] := 22;

Dat[7] := 30; Dat[8] := 12;

Dat[9] := 65; Dat[10] := 35;

m := 0;

for k := 1 to 10 do

if Dat[k] > m then

begin

m := Dat[k];

end;

writeln(m);

End.

5.

FILL IN THE BLANK QUESTION

15 mins • 1 pt

Var k, m, term: integer;

Dat: array[1..8] of integer;

Begin

Dat[1] := 7; Dat[2] := 7;

Dat[3] := 6; Dat[4] := 8;

Dat[5] := 4; Dat[6] := 5;

Dat[7] := 4; Dat[8] := 7;

m := Dat[1];

term := 1;

for k := 2 to 8 do

if Dat[k] < m then

begin

m := Dat[k];

term := k;

end;

writeln(term);

End.

6.

FILL IN THE BLANK QUESTION

15 mins • 1 pt

Var k, m, month: integer;

Dat: array[1..12] of integer;

Begin

Dat[1] := 5; Dat[2] := 5;

Dat[3] := 6; Dat[4] := 8;

Dat[5] := 4; Dat[6] := 5;

Dat[7] := 4; Dat[8] := 7;

Dat[9] := 4; Dat[10] := 4;

Dat[11] := 8; Dat[12] := 7;

m := Dat[1];

month := 1;

for k := 2 to 12 do

if Dat[k] <= m then

begin

m := Dat[k];

month := k;

end;

writeln(month);

End.

7.

FILL IN THE BLANK QUESTION

15 mins • 1 pt

Var k, m, day: integer;

Dat: array[1..7] of integer;

Begin

Dat[1] := 7; Dat[2] := 9;

Dat[3] := 10; Dat[4] := 8;

Dat[5] := 6; Dat[6] := 7;

Dat[7] := 6;

day := 1;

m := Dat[1];

for k := 2 to 7 do

if Dat[k] < m then

begin

day := k;

m := Dat[k];

end;

writeln(day);

End.

Access all questions and much more by creating a free account

Create resources

Host any resource

Get auto-graded reports

Google

Continue with Google

Email

Continue with Email

Classlink

Continue with Classlink

Clever

Continue with Clever

or continue with

Microsoft

Microsoft

Apple

Apple

Others

Others

Already have an account?