М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
tonkikhliza
tonkikhliza
17.04.2020 01:30 •  Информатика

Дана строка. Нужно посчитать количество буквы а. Если это количество четное, то во вторую строку нужно перенести 5 букв, начиная с четвертой, иначе вывести на экран

👇
Ответ:
annaobryv861
annaobryv861
17.04.2020

где сама строка

Объяснение:

4,4(33 оценок)
Открыть все ответы
Ответ:
kategarkysha
kategarkysha
17.04.2020

1.

program n1;

var

k, s: integer;

a: array [1..8] of integer;

begin

for k := 1 to 8 do readln(a[k]);  // с клавиатуры вводится массив из 8

s := 0;                                           элементов

for k := 1 to 8 do

if a[k] < 0 then s := s + a[1];  // в цикле 4 раза к s прибавляют 1-ый элемент

writeln(s);                             // выводится s

end.

ответ: 4(т.к 1-ый элемент массива 1 и в нём 4 отрицательных элемента)

2.  

Надо строку if a[k] < 0 then s := s + a[1];

Заменить на строку if a[k] < 0 then s := s + a[k];

Объяснение:

4,6(56 оценок)
Ответ:
Luciferiy
Luciferiy
17.04.2020

program z1;

const n=5;

var i,s: integer;

a:array[1..n] of integer;

begin

s := 0;

write('Массив : ');

for i:=1 to n do

begin

a[i]:=random(10);

write(a[i]:3);

s:=s+a[i]

end;

writeln;

writeln('Сумма значений элементов целочисленного массива ',s);

writeln('Среднее арифметическое значений элементов целочисленного массива ',s/n)

end.

Объяснение:

n - размерность массива

s - сумма значений элементов

В цикле с параметром:

1) задаём значение элемента массива

2) выводим элемент на экран

3) считаем сумму

Выводим на экран сумму

Выводим на экран среднее арифметическое (делим сумму на количество элементов массива)

4,6(48 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ