1).В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования. Паскаль
Var k, m: integer;Dat: array[1..10] ofinteger;BeginDat[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;fork := 1to10doifDat[k]=15thenbeginm := m + 1;end;writeln(m);End.
2). В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
Vark,m:integer;
Dat:array[1..10]ofinteger;
Begin
Dat[1]:=2;Dat[2]:=5;
Dat[3]:=8;Dat[4]:=5;
Dat[5]:=4;Dat[6]:=2;
Dat[7]:=0;Dat[8]:=3;
Dat[9]:=4;Dat[10]:=5;
m :=0;
fork :=1to10do
ifDat[k]> m thenbegin
m :=Dat[k];
end;
writeln(m);
End.
3). В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
Vark,m:integer;
Dat:array[1..10]ofinteger;
Begin
Dat[1]:=16;Dat[2]:=20;
Dat[3]:=20;Dat[4]:=41;
Dat[5]:=14;Dat[6]:=21;
Dat[7]:=28;Dat[8]:=11;
Dat[9]:=15;Dat[10]:=35;
m :=50;
fork :=1to10do
ifDat[k]< m then
begin
m :=Dat[k];
end;
writeln(m);
End.
4). В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
Vark,m:integer;
Dat:array[1..10]ofinteger;
Begin
Dat[1]:=16;Dat[2]:=20;
Dat[3]:=20;Dat[4]:=41;
Dat[5]:=14;Dat[6]:=21;
Dat[7]:=28;Dat[8]:=12;
Dat[9]:=15;Dat[10]:=35;
m :=0;
fork :=1to10do
ifDat[k]> m then
begin
m :=Dat[k];
end;
writeln(m);
End.
5). В таблице Dat хранятся данные о количестве сделанных заданий учениками (Dat[1] заданий сделал первый ученик, Dat[2] — второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
Vark,m,n:integer;
Dat:array[1..10]ofinteger;
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;
fork :=1to10do
ifDat[k]< m then
begin
m :=Dat[k];
n := k;
end;
writeln(n);
End.
6). В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] — количество учеников в первом классе, Dat[2] — во втором и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
Vark,m:integer;
Dat:array[1..11]ofinteger;
Begin
Dat[1]:=20;Dat[2]:=27;
Dat[3]:=19;Dat[4]:=28;
Dat[5]:=26;Dat[6]:=22;
Dat[7]:=24;Dat[8]:=28;
Dat[9]:=26;Dat[10]:=21;
Dat[11]:=27;
m :=0;
fork :=1to11do
ifDat[k]<25then
begin
m :=Dat[k];
end;
writeln(m);
End.
#include <iostream>
int main() {
const int SIZE = 10;
bool isSence = false;
int sum = 0;
int count = 0;
int arr[SIZE];
for (int i = 0; i < SIZE; i++)
{
arr[i] = rand() % 20 - 10; // "рандомно" заполняем массив от -10 до 10
std::cout << arr[i] << "\t"; // выводим массив в консоль
if (arr[i] >= 0)
isSence = true;
}
for (int i = 0; i < SIZE; i++)
{
if ((isSence) && (arr[i] > 0))
sum += arr[i]; //sum = sum + arr[i];
count++;
}
if (isSence)
std::cout << "\nсреднее арифметическое положительных чисел = " << double(sum) / count << std::endl; // явное приведение типов
else
std::cout << "\nВ массиве нету положительных чисел или нету нулей и/или отрицательных чисел" << std::endl;
return 0;
}
a: array [,] of integer;
begin
var n := ReadlnInteger('n = ');
var m := ReadlnInteger('m = ');
var rand := ReadlnInteger('Для ручного ввода нажмите 0');
if rand = 0 then begin
a := new integer[m, n];
for var i := 0 to m-1 do
for var j := 0 to n-1 do
a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
end
else a := MatrixRandom(m, n, 1, 100);
Println(a);
var b := ArrGen(n, x -> 1);
for var i := 0 to m-1 do
for var j := 0 to n-1 do
if j mod 2 = 0 then
b[j] := b[j] * a[i, j];
b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.