var
i: integer;
a: array [1..15] of integer;
begin
write('Исходный массив: ');
for i:= 1 to 15 do //Формируем и распечатываем массив
begin
a[i]:= random(8);
write(a[i],' ');
end;
writeln; //Перевод на новую строку
write('Преобразованный массив: ');
for i:= 1 to 15 do
begin
if a[i] mod 2 = 0 then a[i]:= a[i] + 1 {Если элемент массива с индексом i четный, то прибавляем к нему 1, иначе умножаем на 2}
else a[i]:= a[i] * 2;
write(a[i], ' ');
end;
writeln; {Перевод на новую строку, чтобы при повторном запуске программы сформированный массив печатался на новой строке}
end.
Отметь решение, как лучшее
Картинка
Объяснение:
На схеме цикл:
1) у = 2 * х - вычисляет у
2) выводит на экран значения х и у
3) х = х+1 - увеличивает значение х на 1
4) х <= 0 - проверяет условие (если да, то начинается сначала)
x = -5
y = 2 * -5 = -10
x = -5 y = -10
-4 <= 0 (да)
y = 2 * -4 = -8
x = -4 y = -8
-3 <= 0 (да)
y = 2 * -3 = -6
x = -3 y = -6
-2 <= 0 (да)
y = 2 * -2 = -4
x = -2 y = -4
-1 <= 0 (да)
y = 2 * -1 = -2
x = -1 y = -2
0 <= 0 (да)
y = 2 * 0 = 0
x = 0 y = 0
1 <= 0 (нет)
Поделитесь своими знаниями, ответьте на вопрос:
решить информатику! Задание 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; }
1. Алгоритм выполняет подсчет количества элементов больше 12 и выводит это количество на экран. В данном случае 7 элементов (7 дней со среднедневной температурой более 12 градусов)
2. Алгоритм выполняет поиск минимального элемента и выводит его на экран. В данном случае будет выведено 12 (12 - минимальное количество голосов за исполнителя народных песен).
3. Алгоритм выполняет поиск минимального элемента в массиве и запоминает и выводит на экран его порядковый номер. В данном случае будет 4 (4 - это порядковый номер ученика с минимальным количеством решенных задач).
Объяснение: