Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > Общие вопросы C/C++
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.03.2013, 17:08   #1
Vera48
 
Регистрация: 03.11.2012
Сообщений: 9
Лампочка Перевести на C++ Basic

Условие задачи такое: В одномерном массиве найти сумму чисел,расположенных между первым минимальным и последним максимальным элементами массива.
Код:
uses crt;
const n=20;
var a:array[1..n] of integer;
    i,imax,imin:byte;
    max,min,sum:integer;
begin
clrscr;
randomize;
writeln('Massiv:');
for i:=1 to n do
  begin
    a[i]:=random(20);
    write(a[i],' ');
  end;
writeln;
max:=a[1];min:=a[1];imax:=1;imin:=1;
for i:=1 to n do
if a[i]>max then
  begin
    max:=a[i];
    imax:=i;
  end
else if a[i]<min then
  begin
    min:=a[i];
    imin:=i;
  end;
writeln('Imax=',imax,'  Imin=',imin);
if imax<imin then
  begin
   sum:=0;
   for i:=imax+1 to imin-1 do

Последний раз редактировалось Stilet; 27.03.2013 в 23:20.
Vera48 вне форума Ответить с цитированием
Старый 27.03.2013, 17:46   #2
Chertenok_n_13
 
Регистрация: 08.01.2012
Сообщений: 8
По умолчанию

хотя бы код до конца выложили. Или просто написали, что сделать надо.
Код:
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <conio.h>
const int n=20;
int a[n];
int i=0, imax=0, imin=0, max=0,min=0,sum=0;
main() {
clrscr();
printf("Massiv:\n");
for (i=0; i<=n; i++) {
a[i]=random(20);
printf("%d ", a[i]);
}
printf("\n\n");
max=a[1];
min=a[1];
imax=1;
imin=1;
for (i=0; i<=n; i++) {
if (a[i]>max) {max=a[i]; imax=i;} else if (a[i]<min) {min=a[i]; imin=i;}  }
printf("Imin=%d\nImax=%d\n", imin, imax);
if (imax>imin) {
sum=0;
for (i=imin+1; i<imax; i++) {
sum=sum+a[i]; }   }
printf("Summa=%d", sum);
getchar();
}

Последний раз редактировалось Stilet; 27.03.2013 в 23:23.
Chertenok_n_13 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
перевести на basic екатерина новикова Помощь студентам 1 16.07.2011 15:30
перевести с basic на Delphi polinka92 Помощь студентам 0 16.05.2010 20:40
перевести код с basic на delphi Kigmatig Помощь студентам 1 08.02.2010 09:46
Перевести из visual basic в С# Ponvit Общие вопросы .NET 5 30.04.2009 10:15