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

Почему не работает программа по нахождению полиндрома через массив? ? не понимаю? ? const n=5; var a: array[1..n] of char; i,c: integer; begin for i: =1 to n do read (a[i]) ; readln; c: =0; for i: =1 to n div 2 do if a[i]< > a[n-1-i] then c: =1; if c=0 then writeln('polindrom') else writeln('no'); readln;

👇
Ответ:
123451526
123451526
05.12.2020
Const
  n = 5;

var
  a: array[1..n] of char;
  i: integer;
  p: boolean;

begin
  for i := 1 to n do
    read(a[i]);
 
  p := true;
  for i := 1 to n div 2 do
    p := p and (a[i] = a[n + 1 - i]);
   
  writeln('Polindrom: ', p);
end.
4,8(13 оценок)
Открыть все ответы
Ответ:
zaharovivan150
zaharovivan150
05.12.2020

#include<iostream>

#include<conio.h>

using namespace std;

int main() {

const int n = 5;

float arr[n],A=0.0,B;

for (int i = 0;i < n;i++) {

 cin >> arr[i];

}

B = arr[0];

for (int i = 0;i < n;i++) {

 if (arr[i] > A) {

  A = arr[i];

 }

 if (arr[i] < B) {

  B = arr[i];

 }

}

cout << "A= " << A << endl;

cout << "B = " << B << endl;

cout << " A + B = " << A + B << endl;

cout << " A - B = " << A - B << endl;

_getche();

return 0;

}

4,5(37 оценок)
Ответ:
anastasiyakorc
anastasiyakorc
05.12.2020

1.

program asd;
uses crt;
var
a: array[1..10] of integer;
i:integer;
sum:integer;
begin
writeln('Введите 10 цифр по очереди');
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]>7) then begin a[i]:=7; sum:=sum+1; end;
end;

writeln(' ',sum);

end.

 

2. смысл задания? 10/2=5 или индексами ты имела ввиду значениями? 

3.
program asd;
uses crt;
var
a: array[1..10] of integer;
i:integer;
naib:integer;
begin
writeln('Введите 10 цифр по очереди');
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]>naib) then naib:=a[i];
end;

writeln(' ',naib);

end.

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