alexseyzyablov
?>

Составьте и запишите компьютерную программу на языке программирования паскаль для решения следующей : заполнить целочисленный массив 20-ю случайными элементами в диапазоне от 50 до 100, вывести их на экран, а затем найти сумму лишь чётных чисел. до завтра

Информатика

Ответы

Probitbiz6
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(20,50,100); a.Println;
  Writeln('Сумма четных значений равна ',a.Where(t->t.IsEven).Sum)
end.

Пример
60 77 58 60 64 54 91 78 56 85 65 87 83 76 83 63 63 77 97 67
Сумма четных значений равна 506
arch5050

должно по идее получиться "нет худо без добра.", но у меня получилось

"нет худо бrз одра." может ты в условии что-то напутала? вот программа которая переводит

 

function Pow(a, x:integer):integer;
var
  rez, i:integer;
begin
  rez := 1;
  for i := 1 to x do
    rez := rez * a;
  Pow := rez;
end;

function BinToDec(a:string):integer;
var
i ,r:integer;
begin
  r := 0;
  for i := length(a) downto 1 do
    r := r + StrToInt(a[i]) * Pow(2, length(a) - i);

  BinToDec := r;
end;

var
  s:array[1..100] of string;
  i:integer;
begin
  s[1] := '11001101';
  s[2] := '11100101';
  s[3] := '11110010';
  s[4] := '00100000';
  s[5] := '11110101';
  s[6] := '11110011';
  s[7] := '11100100';
  s[8] := '11100000';
  s[9] := '00100000';
  s[10] := '11100001';
  s[11] := '1110010';
  s[12] := '11100111';
  s[13] := '00100000';
  s[14] := '11101110';
  s[15] := '11100001';
  s[16] := '11110000';
  s[17] := '11100000';
  s[18] := '00101110';
  for i := 1 to 18 do
    write(chr(BinToDec(s[i])));
end.

evada2
Возможный вариант в C++
#include <iostream>
int main()
{
    using namespace std;
    int N;
    cout << "Enter N: ";
    cin >> N;
    int num;
    int max = 1;
    int i;
    for (i = 0; i < N; ++i)
    {
        cout << "Enter #" << i + 1 << " number: ";
        cin >> num;
        if ((num - 9) % 10 != 0 && num % 3 == 0)
        {
            max = num;
            break;
        }
    }
    for (int j = i + 1; j < N; ++j)
    {
        cout << "Enter #" << j + 1 << " number: ";
        cin >> num;
        if ((num - 9) % 10 != 0 && num % 3 == 0)
            if (num > max)
                max = num;
    }
    if (max != 1)
        cout << "Max number div by 3 and don't end 9: " << max << endl;
    else
        cout << "No numbers div by 3 and don't end 9" << endl;
    return 0;
}

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Составьте и запишите компьютерную программу на языке программирования паскаль для решения следующей : заполнить целочисленный массив 20-ю случайными элементами в диапазоне от 50 до 100, вывести их на экран, а затем найти сумму лишь чётных чисел. до завтра
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

vps1050
ирина Альбертовна
Immortal3331
ellyb106786
samoilovcoc
Yevgenevich775
archala
Lianchikavon
TatarkovTitova
Yevgenevich_Chipura-Nikolaeva
agusarevich283
R7981827791127
Алексеевна_Валентиновна
anytkaakk
poch23420