limpompo2112

26.06.2020 17:05 •  Информатика

решить информатику!
Задание 1
В таб¬ли¬це Dat хра¬нят¬ся дан¬ные из¬ме¬ре¬ний сред¬не¬су¬точ¬ной тем¬пе¬ра¬ту¬ры за 10 дней в гра¬ду¬сах (Dat[1] — дан¬ные за пер¬вый день, Dat[2] — за вто¬рой и т. д.). Определите, какое число будет на¬пе¬ча¬та¬но в ре¬зуль¬та¬те ра¬бо¬ты сле¬ду¬ю¬щей программы. Текст про¬грам¬мы приведён на пяти язы¬ках программирования.

Бейсик Python
DIM Dat(10) AS INTEGER
DIM k,m AS INTEGER
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
IF Dat(k) > 12 THEN
m = m + 1
ENDIF
NEXT k
PRINT m Dat = [12, 15, 17, 15, 14, 12, 10, 13, 14, 15]
m = 0
for k in range (10):
if Dat[k] > 12:
m = m + 1
print (m)
Паскаль Алгоритмический язык
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. алг
нач
цел¬табDat[1:10]
цел k, m
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
нц для k от 1 до 10
если Dat[k] > 12 то
m := m + 1
все
кц
вывод m
кон
С++
#include
using namespace std;
intmain() {
intDat[10] = {12, 15, 17, 15, 14, 12, 10, 13, 14, 15};
int m = 0;
for (int k = 0; k < 10; k++)
if (Dat[k] > 12) m = m + 1;
cout<< m;
return 0;
}

Решив задачу, вы получите в ответе m=7

Задание 2
В таб¬ли¬це Dat пред¬став¬ле¬ны дан¬ные о ко¬ли¬че¬стве голосов, по¬дан¬ных за 10 ис¬пол¬ни¬те¬лей на¬род¬ных песен (Dat[1] — ко¬ли¬че¬ство голосов, по¬дан¬ных за пер¬во¬го исполнителя, Dat[2] — за вто¬ро¬го и т. д.). Определите, какое число будет на¬пе¬ча¬та¬но в ре¬зуль¬та¬те ра¬бо¬ты сле¬ду¬ю¬щей программы. Текст про¬грам¬мы приведён на пяти язы¬ках программирования.

Бейсик Python
DIM Dat(10) AS INTEGER
DIM k,m AS INTEGER
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
IF Dat(k) < m THEN
m = Dat(k)
ENDIF
NEXT k
PRINT m Dat = [56, 70, 20, 41, 14, 22, 30, 12, 65, 35]
m = 100
for k in range(10):
if Dat[k] < m:
m = Dat[k]
print (m)
Паскаль Алгоритмический язык
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. алг
нач
цел¬табDat[1:10]
цел k, m
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
нц для k от 1 до 10
если Dat[k] < m то
m := Dat[k]
все
кц
вывод m
кон
С++
#include
using namespace std;
intmain() {
intDat[10] = {56, 70, 20, 41, 14, 22, 30, 12, 65, 35};
int m = 100;
for (int k = 0; k < 10; k++)
if (Dat[k] < m) m = Dat[k];
cout<< m;
return 0;
}

Задание 3
В таб¬ли¬це Dat хра¬нят¬ся дан¬ные о ко¬ли¬че¬стве сде¬лан¬ных за¬да¬ний уче¬ни¬ка¬ми (Dat[1] за¬да¬ний сде¬лал пер¬вый ученик, Dat[2] — вто¬рой и т. д.). Определите, какое число будет на¬пе¬ча¬та¬но в ре¬зуль¬та¬те ра¬бо¬ты сле¬ду¬ю¬щей программы. Текст про¬грам¬мы приведён на пяти язы¬ках программирования.

Бейсик Python
DIM Dat(10) AS INTEGER
DIM k, m, n AS INTEGER
Dat(1) = 7: Dat(2) = 9
Dat(3) = 10: Dat(4) = 5
Dat(5) = 6: Dat(6) = 7
Dat(7) = 9: Dat(8) = 8
Dat(9) = 6: Dat(10) = 9
m = 10; n = 0
FOR k = 1 TO 10
IF Dat(k) < m THEN
m = Dat(k)
n = k
ENDIF
NEXT k
PRINT n Dat = [7, 9, 10, 5, 6, 7, 9, 8, 6, 9]
m = 10
n = 0
for k in range(0,10):
if Dat[k] < m:
m = Dat[k]
n = k + 1
print (n)
Паскаль Алгоритмический язык
Var k, m, n: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 7; Dat[2] := 9;
Dat[3] := 10; Dat[4] := 5;
Dat[5] := 6; Dat[6] := 7;
Dat[7] := 9; Dat[8] := 8;
Dat[9] := 6; Dat[10] := 9;
m := 10;
n := 0;
for k := 1 to 10 do
if Dat[k] < m then
begin
m := Dat[k];
n := k;
end;
writeln(n);
End. алг
нач
цел¬табDat[1:10]
цел k, m, n
Dat[1] := 7
Dat[2] := 9
Dat[3] := 10
Dat[4] := 5
Dat[5] := 6
Dat[6] := 7
Dat[7] := 9
Dat[8] := 8
Dat[9] := 6
Dat[10] := 9
m := 10
n := 0
нц для k от 1 до 10
если Dat[k] < m то
m := Dat[k]
n := k
все
кц
вывод n
кон
С++
#include
using namespace std;
intmain() {
intDat[10] = {7, 9, 10, 5, 6, 7, 9, 8, 6, 9};
int m = 10;
int n = 0;
for (int k = 0; k < 10; k++)
if (Dat[k] < m) {
m = Dat[k];
n = k + 1;
}
cout<< n;
return 0;
}