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*
Комментарий*

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

nastikak8
kuharhuks
ЕленаАнастасия315
igorshevkun
rozhkova
websorokin
doorhan42n6868
evsmorodina
metegina4
znaberd786
best00
Pervosha
konss2
tanias
magnit-expo